alenaafaunova
06.11.2020 05:22

Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 5.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
alianavladova
24.08.2020 18:55

var

n, k, i, a: Integer;

begin

 n:=1000;

 k:=0;

 for i := 1 to 1000 do  

 begin

readln(a);

if a = 0 then

begin

 break;

end;

if (a <= 30000) and (a>0) and (a mod 5 = 0) then begin

   k:=k+1;

end;

end;

writeln(k);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота