Question

Напишиет программу,которая в последовательности 10 натуральных чисел определяет сумму чисел,кртаных 5.Программа должна вывести одно число-сумму чисел ,кратных 5.

Answer 1

Я бы делала так.  var number, sum : int;  begin sum := 0; do begin write ('vvedi 4islo: '); readln (number); if ((number>9) and (number mod 5 = 0)) sum := sum + number; end; while (number <> 0); readln; end.