Напишите программу на языке Pascal, которая подсчитывает количество чисел кратных 8 в промежутке от n до 100

Question

Эмран

22 марта, 07:48

+2

Ответы (1)

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

Фармад · Answer 1

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.