Предмет: Информатика,
автор: keksik897
Переведите на паскаль ❤️
Приложения:
![](https://files.topotvet.com/i/730/7306600f17cb7c32f1f8cd21d180f292.png)
Ответы
Автор ответа:
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.
Приложения:
![](https://files.topotvet.com/i/6b3/6b3e79f76296579d739a55f9ac5b8808.bmp)
Похожие вопросы
Предмет: Английский язык,
автор: radigradig1
Предмет: История,
автор: geydemix
Предмет: Математика,
автор: lanny14
Предмет: Математика,
автор: yulitakryzchen
Предмет: Физика,
автор: Алин20031