Вывести на экран числа от 1 до 30 кратному числу 2 и 7

Question

Информатика

Бажен

20 октября, 06:57

Вывести на экран числа от 1 до 30 кратному числу 2 и 7

+5

Ответы (1)

Знаете ответ на вопрос?

Матвейка · Answer 1

Program zadacha;

Var

a: integer;

Begin

For a:=1 to 30 do

If (a mod 2=0) and (a mod 7=0) then

Writeln (a) ;

Readln;

end.

Думаю, что вот так) Крайне извиняюсь, если ошиблась)