nik255377866689
24.05.2020 14:41

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
varzhyv
24.05.2020 15:07

Program n1;
Uses CRT;
Var s,i: integer;
begin
ClrScr;
Writeln('Введите последовательность. Для остановки введите 0 ');
Repeat
readln(i);
If (i mod 7=0)or(i mod 10=0) then s:=s+i;
until i=0;
writeln('Сумма =',s);
readln
end.

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