Сколько раз будет выполнен заданный цикл?
for i:=20 downto 1 do
t:=random (100);

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

program d; var s : string; begins : = 'параллелограмм'; delete(s, 1, 9); delete(s, 3, 2); insert('о', s, 3); write(s); end.

program pogoda; var t: real; begin write('t='); readln(t); if t> 10 then writeln ('хорошая погода') else begin ; writeln('плохая погода'); end; end.

все слова по 6 букв, в каждом в середине находится "оро", в каждом присутствуют одни и те же гласные на тех же местах