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

Паскаль

Question

Леонила

21 сентября, 16:37

+5

Ответы (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Паскаль