Ответы на вопрос:
program zadanie1; varmax,num,a : byte; beginmax: =0; writeln('vvodite chisla'); repeatreadln(a); if a*a> 225 then writeln('slishkom bolshoe chislo') else if max< a then max: =a ;
until a=0; readln; writeln('max=',max); end.
Популярно: Информатика
-
Svetik20061130.07.2022 23:59
-
usenov77719.01.2023 22:14
-
enikolaenko8121.02.2020 12:02
-
nikzakora31.05.2021 15:42
-
alenasher1try20.08.2022 05:46
-
Leac17.06.2022 02:06
-
HLNLZ27.12.2020 10:58
-
ВеликийМаг201828.07.2020 03:04
-
Gulshatkadilshina29.02.2020 15:28
-
darova120523.01.2023 09:50