Все целые положительные числа меньше 700 кратные 5 и не кратные 3

Паскаль

Question

Информатика

Пашута

19 марта, 10:31

Все целые положительные числа меньше 700 кратные 5 и не кратные 3

Паскаль

+1

Ответы (1)

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

Харламп · Answer 1

Program z;

var i, s:integer;

begin

s:=0;

for i:=1 to 700 do

begin

if (i mod 5 = 0) and not (i mod 3 = 0) then s:=s+1;

end;

writeln (s) ;

end.

Все целые положительные числа меньше 700 кратные 5 и не кратные 3Паскаль

Все целые положительные числа меньше 700 кратные 5 и не кратные 3

Паскаль