Здравствуйте! Мне нужно решить эти 2 задачи по информатике! Желательно как можно скорее

160

320

Посмотреть ответы 1

Ответы на вопрос:

Politik2000

Информатика

4,4(18 оценок)

Вариант номер 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.