Ответы на вопрос:
Ятак полагаю, что это паскаль. через while будет попроще это сделать. var a,b: real; begin read(a); b: =a; while a< > 0 do begin read(a); if a> b then b: =a; end; writeln(b); end.
Популярно: Информатика
-
itpediaigor23.09.2022 14:08
-
KoTuK40528.09.2021 19:28
-
SaLmOn466311.01.2023 16:11
-
ясин959531.01.2022 10:57
-
Audana0008.03.2023 14:32
-
Alexsandar13.03.2020 23:55
-
kinderlolo1999927.04.2020 16:57
-
диана246014.09.2022 05:52
-
Nastasia13z19.04.2020 00:33
-
andreyffyff15.04.2020 13:09