Question

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

кто-нибудь, умоляю, пожалуйста 20б паскаль

Answer 1

Ответ:

var

i, s : integer;

begin

 s := 0;

 writeln('Input numbers:');

 repeat

   readln(i);

   if (i mod 7 = 0) and (i mod 10 = 1) then

     s := s + i;

 until i = 0;

 writeln('Sum=', s);

end.