Var a, b, c, max: real; begin writeln('Введите первое число: '); readln(a); writeln('Введите второе число: '); readln(b); writeln('Введите третье число: '); readln(c); max := 0; if a >= max then max := a; if b >= max then max := b; if c >= max then max := c; writeln('Наибольшее число: ', max);end.
Answers & Comments
begin
readln(a,b,c);
if a>=b then max:=a else max:=b;
if c>max then max:=c;
writeln('max = ',max);
end.
Пример:
15 48 34
max = 48
Verified answer
Var a, b, c, max: real;begin writeln('Введите первое число: '); readln(a); writeln('Введите второе число: '); readln(b); writeln('Введите третье число: '); readln(c); max := 0; if a >= max then max := a; if b >= max then max := b; if c >= max then max := c; writeln('Наибольшее число: ', max);end.