написать код в лазарусе
составьте программу определения большего из трех чисел
составьте программу определения большего из трех чисел
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
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.