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

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.

Comments

Если пользователь введет 1000 чисел 95, то типа integer не хватит для суммирования, нужен longint

var x, s : longint;

Begin
s := 0;
repeat
write ('Введите число: ');
Readln (x);
if ((x>9) and (x<100) and (x mod 5 = 0)) then s := s+x; <br>until (x=0);
Writeln('s=',s);
End.