Question

Задача 1. Вывести на экран квадраты чисел от 11 до 27 . Задача 2. Найти произведение четных чисел в промежутке от 23 до 5. Задача 3. Найти сумму двухзначных чисел кратных 7.

Answer 1

1) Var i:integer; Begin For i:=11 to 23 do Write(i*i,' '); End. 2) Var i,K:integer; Begin K:=1; For i:=5 to 23 do Begin if i mod 2 = 0 then K:=K*i; End; Write(K); End. 3) Var i,K:integer; Begin K:=0; For i:=10 to 99 do Begin If i mod 7 = 0 then K:=K+i; End; Write(K); End.