Паскаль. Найти max из 3-х чисел
Ответы на вопрос
Ответил moboqe
0
uses crt;
var a, b, c, max: integer;
begin
readln(a,b,c);
writeln(a, ' ', b, ' ', c);
max := a;
if max < b then max := b;
if max < c then max := c;
writeln('max= ',max);
end.
var a, b, c, max: integer;
begin
readln(a,b,c);
writeln(a, ' ', b, ' ', c);
max := a;
if max < b then max := b;
if max < c then max := c;
writeln('max= ',max);
end.
Новые вопросы
Геометрия,
2 года назад
Химия,
2 года назад
Математика,
8 лет назад
Алгебра,
8 лет назад
Алгебра,
9 лет назад