Информатика, опубликовано 2018-08-22 22:45:41 by Гость
Написать программу для решение задачи - посчитать количество чисел от 1 до 1000 кратных 7 и честных ( провереть кратность 7 командой mod введя условие если в цикл)
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на