Напишите программу на языке pascal, которая подсчитывает количество чисел кратных 8 в промежутке от n до 100
266
460
Ответы на вопрос:
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.
Популярно: Информатика
-
RIGBY1920425.03.2022 16:37
-
tataynka113.09.2022 19:58
-
Liakn11.09.2020 21:05
-
Наталья16234511.03.2022 00:08
-
лол162129.10.2020 23:49
-
SuperFox947216.06.2022 06:09
-
marga2304200218.12.2021 12:04
-
kydaxtaxtax14.12.2020 16:34
-
Popopoghdhz24.06.2020 08:46
-
ksusha2003211.03.2021 04:31