Напишиет программу,которая в последовательности 10 натуральных чисел определяет сумму чисел,кртаных 5.Программа должна вывести одно число-сумму чисел ,кратных 5.
Ответы на вопрос
Ответил kaspiiskayakam
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.
Новые вопросы
Українська мова,
2 года назад
Русский язык,
2 года назад
Английский язык,
2 года назад
Русский язык,
2 года назад
Физика,
7 лет назад
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;
until (x=0);
Writeln('s=',s);
End.