Напишиет программу,которая в последовательности 10 натуральных чисел определяет сумму чисел,кртаных 5.программа должна вывести одно число-сумму чисел ,кратных 5.
Я бы делала так. 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.
