Написать программу с помощью цикла с постусловием (repeat). Паскаль.
Вычислить сумму чисел в диапазоне от 19 до 51, если они делятся на 5.

Нужно сложить числа от 19 до 51, которые делятся на 5: это 20, 25, 30, 35, 40, 45, 50.

Программа на Паскале с циклом repeat:

program SumDiv5;
var
  i, s: integer;
begin
  i := 19;
  s := 0;
  repeat
    if i mod 5 = 0 then
      s := s + i;
    i := i + 1;
  until i > 51;
  writeln('Summa = ', s);
end.

Ответ программы: 245.

0 0 Пожаловаться