Подсчитать количество чисел кратных 8 в промежутке от n до 100​

1Аминка 1Аминка    3   23.04.2021 12:12    6

Ответы
Hamrod Hamrod  23.04.2021 12:20

var

n,i,k:integer;

begin

Write('n=');

Readln(n);

k:=0;

for i:=n to 100 do

if i mod 8 = 0 then Inc(k);

Writeln('k=',k);

end.

Надеюсь )

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика