Написать программу для решение задачи - посчитать количество чисел от 1 до 1000 кратных 7 и честных (провереть кратность 7 командой mod введя условие если в цикл)

Question

Информатика

Наста

3 января, 21:29

Написать программу для решение задачи - посчитать количество чисел от 1 до 1000 кратных 7 и честных (провереть кратность 7 командой mod введя условие если в цикл)

+4

Ответы (2)

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

Венедей · Answer 1

Var

x, i, y:integer;

begin

for i:=1 to 1000 do

begin

x: = i mod 7;

if x=0 then

begin

y:=y+1;

writeln (i) ; / / строка выводит все числа кратные семи. она подлежит удалению

end;

end;

writeln (y) ;

end.

Ксюра · Answer 2

Var

count, i:integer;

begin

i:=0; count:=0;

repeat

i:=i+2;

if i mod 7 = 0 then count:=count+1;

until i>=1000;

writeln (count) ;

end.