Задача 1. Вывести на экран квадраты чисел от 11 до 27 .
Задача 2. Найти произведение четных чисел в промежутке от 23 до 5.
Задача 3. Найти сумму двухзначных чисел кратных 7.
1)Vari:integer;BeginFor i:=11 to 23 doWrite(i*i, );End.2)Vari,K:integer;BeginK:=1;For i:=5 to 23 doBeginif i mod 2 = 0 thenK:=K*i;End;Write(K);End.3)Vari,K:integer;BeginK:=0;For i:=10 to 99 doBeginIf i mod 7 = 0 thenK:=K+i;End;Write(K);End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
