Напишите программу на языке pascal, которая подсчитывает количество чисел кратных 8 в промежутке от n до 100
Mari2909
3
26.09.2019 22:20
3
Другие вопросы по теме Информатика
Dlana
31.08.2019 20:40
krivorotovadara
31.08.2019 20:40
YAN222
31.08.2019 20:40
konsantin1805
31.08.2019 20:40
duwie
31.08.2019 20:40
marinapogosyan
31.08.2019 20:30
Эльза132004
31.08.2019 20:30
MariNika2000
31.08.2019 20:30
fatowka84
31.08.2019 20:30
Популярные вопросы
- Решить задание по геометрии На листке...
3 - Почему Водяное общество не приняло Печорина?...
2 - Зобразіть структурну формулу спирту, молекула якого містить три атоми Карбону...
3 - Найдите сумму первых шести членов геометрической прогрес- сии (b), если:...
3 - Очень нужна ваша Найти х: 1)7 1/2: 4 1/2=x:8 1/3 2) 55:x=7,4:7,4 Cocтавить...
2 - Ания 1) Определите причины восстаний по степени важности. 1.Черный мор:...
2 - Назовите наиболее распространенные изделия из стекла в X – XII веках?...
3 - Реки (характеристика рек) в африки...
2 - Соотнесите разряд местоимения и его значение. В ответ запишите последовательность...
2 - Техническая механика. Для первой задачи значения e=6,5 н, а=4,5 м , b=1,5...
1
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.