Ответы на вопрос:
Вариант номер 1: program c1ba; var a: byte; p: real; begin p: =10; a: =1; repeat begin p: =p+(p/10); a: =a+1; end; until p> =20; writeln('a=',a); end.вариант номер 2: program c1ba; var a: byte; p: real; beginp: =10; a: =1; while p< =20 do beginp: =p+(p/10); a: =a+1; end; writeln('a=',a); end.
Популярно: Информатика
-
УмНяша0112.01.2022 07:35
-
Shrhfhd28.07.2022 15:39
-
Juliaaaanaaa07.07.2020 23:43
-
Vikusyadubenko25.01.2022 00:23
-
shitova20023p02gai21.07.2020 04:24
-
krohaaaaaaaa20.04.2023 05:42
-
malina201721.06.2023 15:16
-
Boom11111111111121.03.2020 08:00
-
Gamoo14.06.2022 18:24
-
GuldanaManarbek05.06.2020 13:57