Программирование PascalABC
Сосчитать сколько есть чисел кратных 6 от 1 до 100 включительно
bandit12341
3
23.03.2021 22:55
1
Другие вопросы по теме Информатика
gggg115gcgc
26.04.2021 11:36
marinapogosyan
31.08.2019 20:30
Эльза132004
31.08.2019 20:30
MariNika2000
31.08.2019 20:30
fatowka84
31.08.2019 20:30
сева167
31.08.2019 20:30
ник4858
31.08.2019 20:20
медныйвсадник
31.08.2019 20:20
Пофиг11
31.08.2019 20:20
Популярные вопросы
- Очем расказ заколдовоное место. гоголь....
2 - Яучусь на 5, в последнее время стала получать много неудовлетворительных...
2 - Вычесли и сравни значение выражение запиши результат сравнения с...
3 - Напишите небольшой отзыв по произведениям петра чайковского....
1 - Решить здачу .в коробке 24 конфеты . алла взяла из коробки 1, 6...
3 - 81x2≥16 решите урвнение неравенства...
1 - Найдите наименьшее общее кратное чисел 20 и 35; 75 и 90; 6и 13...
2 - Человек стоит в начале улице и видит по левоюй стороне расположены...
2 - К2s+zn(no3)2, решить! ,заранее : )...
1 - Найти две пятых чисел 5,10,20,25.30.40 найти числа пятая часть которого...
1
Объяснение:
var count, i: integer;
begin
count := 0;
for i:=1 to 100 do
if i mod 6 = 0 then count := count + 1;
writeln(count);
end.