1) найти сумму чисел кратные 3 но не делящихся на2 от 100 до 150

2) вывести натуральные числа от 100 до 150 через 5

Question

Информатика

Андроныч

28 апреля, 15:21

1) найти сумму чисел кратные 3 но не делящихся на2 от 100 до 150

2) вывести натуральные числа от 100 до 150 через 5

+5

Ответы (1)

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

Валентина · Answer 1

Var a:integer;

begin

for a:=100 to 150 do

if (a mod 20) and (a mod 3=0) then writeln (a)

end.

var a:integer;

begin

a:=100;

while a< = 150 do

begin

writeln (a) ;

a:=a+5

end

end.

1) найти сумму чисел кратные 3 но не делящихся на2 от 100 до 1502) вывести натуральные числа от 100 до 150 через 5

1) найти сумму чисел кратные 3 но не делящихся на2 от 100 до 150

2) вывести натуральные числа от 100 до 150 через 5