Предмет: Информатика,
автор: KarinaRainbow
составьте алгоритм нахождения наименьшего из трех значений в паскаль
Ответы
Автор ответа:
0
program p1;
var
a1, a2, a3, max: integer;
BEGIN
writeln ('Vvedite 3 chisla cherez probel i nazhmite probel');
readln (a1, a2, a3);
if a1>=a2 then
max:=a1
else
max:=a2;
if a3>max then
max:=a3;
Writeln('Maximalnoe chislo iz nih:', max);
readln
END.
Похожие вопросы
Предмет: Математика,
автор: saveliyshewyakov
Предмет: Литература,
автор: oursul6
Предмет: Математика,
автор: alexdobrev95
Предмет: Алгебра,
автор: 890420117