hvbdnnd
07.03.2023 19:55

Напишите программу которая в последовательности натуральных чисел определяет количество всех чисел, кратных 6 и оканчивающихся на 0. программа получает на вход натуральные числа, кол-во введенных чисел неизвестно, последовательность чисел оканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). кол-во чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число: кол-во всех чисел последовательности, кратных 6 и оканчивающихся на 0.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
shoistakarimova
05.10.2020 14:59
Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=0) then
k:=k+1;
readln(a);
end;
writeln(k);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота