Напишите программу, которая в последовательности целых - вопрос №3768594 от Roman789789 02.01.2022 08:05

Question

Информатика: Напишите программу, которая в последовательности целых чисел вычисляет сумму всех чисел, кратных 5 или 9. программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30 000. программа должна вывести одно число: сумму всех чисел, кратных 5 или 9.

Roman789789 · Answer

Program a;var a,b:integer;beginwriteln( введите числа окончив последовательность нулём );readln(a);b:=0;while (a 0) do beginif ((a mod 5 = 0) or (a mod 9 = 0)) thenb:=b+a;readln(a);end;writeln( ответ ,b);end....