Найти максимум из трех целых чисел Паскалем.
Найти максимум из трех целых чисел Паскалем.
Гость
Ответ(ы) на вопрос:
ГостьVar A,B,C:integer;
Begin
ReadLn(A,B,C);
if A
Гостьprogram beta;
var a,b,c,f:integer;
begin
writeln ('Введите три числа');
readln (a,b,c);
f:=a+b+c
writeln (f)
end.
Не нашли ответ?
Похожие вопросы