Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 8 и оканчивающихся на 2. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: количество чисел, кратных 8 и оканчивающихся на 2
dimon2512
3
10.04.2020 11:16
2
Другие вопросы по теме Информатика
Mary090605
12.12.2020 06:58
armanshinaelin
12.12.2020 06:57
Demel
24.06.2019 18:30
000Математик000
24.06.2019 18:30
artem880
24.06.2019 18:30
iPHONee12
24.06.2019 18:30
Face22821
24.06.2019 18:30
алибек29
24.06.2019 18:30
АлиночкаБурова
29.05.2019 13:10
Популярные вопросы
- Найдите область определения...
3 - Функция задана формулой y= 2-3x...
1 - Виведіть формулу алкану,1л якого за нормальних умов має масу 2,41...
2 - Нужно составить прдложения с этими фразеологизмами. 50...
1 - Раскройте скобки, употребляя глагол в форме present и past continuous tensesи...
3 - Складіть будь ласка план до 1 і 2 розділу 2 частини пятнадцятирічьний капі...
1 - Экспериментальное 12.1 7 класс кабардин. ....
2 - Найдите корень уравнения 1/x+3=1/10...
3 - Банк виплачує вкладникам 16% річних. вклад складає 18000 грн.яка сума буде в...
3 - Совершить превращение. а то с би да.. cu cuo cu(no3)2 cu(oh)2 cuso4 cucl2 хорошую...
1
program find;
var
a: integer;
sum: integer;
begin
sum:=0;
a:=2;
while a<>0 do
begin
readln(a);
if (a <> 0) and (a mod 8 = 0) and (a mod 10 = 2) then
sum:= sum + 1;
end;
writeln(sum);
end.
Объяснение: