Регистрация
MoonyGirl04
31.01.2022 20:50
Информатика
Есть ответ 👍

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

233
433
Посмотреть ответы 3

Ответы на вопрос:

Samiko280106
Samiko280106
4,6(72 оценок)
//pascalabc.net //версия 3.3, сборка 1611beginwrite(readseqintegerwhile(x-> x< > 0).where(x-> (x mod 10=1) and (x mod 7=; end.
али426
али426
4,7(18 оценок)
Var n,s: integer; begin   s: =0; n: =0;   repeat     if ((n mod 7)=0) and ((n mod 10)=1) then s: =s+n;     read(n);   until n=0;   writeln('сумма: ',s); end.14 21 35 27 91 16 0 сумма: 112
Askemba
Askemba
4,7(100 оценок)

макро-вирусы

вроде так

Популярно: Информатика