Напишиет программу,которая в последовательности 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.

Если ответ по предмету Другие предметы отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.