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

Паскаль

Question

Информатика

Корнюша

5 октября, 13:05

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

Паскаль

+4

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

Паскаль