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

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

Question

Информатика

Андроныч

4 сентября, 19:03

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

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

+4

Ответы (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