Найти максимум из трех целых чисел паскалем.

Evgeniusz Evgeniusz    1   24.08.2019 11:30    0

Ответы
fgk200 fgk200  20.08.2020 14:59
Var A,B,C:integer;
Begin
ReadLn(A,B,C);
if A<B then A:=B;
if A<C then A:=C;
Write(A)
End.
ПОКАЗАТЬ ОТВЕТЫ
Хорошистка541 Хорошистка541  20.08.2020 14:59
Program beta;
var a,b,c,f:integer;
begin
writeln ('Введите три числа');
readln (a,b,c);
f:=a+b+c
writeln (f)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика