Найти кол-во чисел, кратных 8 и оканчивающихся на 6, из диапозона от 10 до 200. Даю 50 баллов!!!!!!!!
Найти кол-во чисел, кратных 8 и оканчивающихся на 6, из диапозона от 10 до 200. Даю 50 баллов!!!!!!!!
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.Net 3.0, сборка 1064
var
i, n: integer;
begin
n := 0; i := 16;
while i <= 200 do
begin
if i mod 10 = 6 then begin
Inc(n);
Write(i, ' ')
end;
i := i + 8
end;
Writeln(#13#10,'Количество равно ', n)
end.
Результат выполнения программы:
16 56 96 136 176
Количество равно 5
Не нашли ответ?
Похожие вопросы