Предмет: Информатика,
автор: Scania730
Напишите программу на языке Pascal, которая подсчитывает количество чисел кратных 8 в промежутке от n до 100
Ответы
Автор ответа:
2
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.
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.
Scania730:
спасибо огромное
как он работает?
Похожие вопросы
Предмет: Английский язык,
автор: aiagoz0930
Предмет: География,
автор: Chimera36
Предмет: Математика,
автор: vovalavys007
Предмет: Биология,
автор: luck300
Предмет: Математика,
автор: PROSTOYYYYYY