Предмет: Информатика, автор: keksik897

Переведите на паскаль ❤️

Приложения:

Ответы

Автор ответа: iolandavalerypad353
1

var

 n, max: real;

 i: integer;

begin

 Read(n);

 max := n;

 for i:=1 to 4 do

 begin

   Read(n);

   if n > max then

     max := n

 end;

 Write(max)

end.

Приложения:
Похожие вопросы
Предмет: История, автор: geydemix
Предмет: Математика, автор: lanny14
Предмет: Математика, автор: yulitakryzchen