Система Паскаль. Напишите программу, которая в последовательности - вопрос №13946256 от dashkin21 08.08.2022 01:04

Question

Информатика: Система Паскаль. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число: сумму всех натуральных чисел, кратных 3 и оканчивающихся

dashkin21 · Answer

pascalОбъяснение:program summa;var i, s: integer;begin  WriteLn( Введите числа (или 0, чтобы закончить: );  repeat    Write( i = );    ReadLn(i);    if (i mod 3 = 0) and (i mod 10 = 4) then s := s + i;  until i = 0;  WriteLn( Сумма введенных натуральных чисел, кратных 3 и оканчивающихся на 4, равна , s);end....