Question

Составьте программу, которая вычисляет сумму чисел, больших a, меньших b, которые при делении на 3 дают остаток 1.

var...

begin

writeln ('Введите a')

readln...

writeln ('Введите b')

readln...

for...

...

end.

ПРОШУ СРОЧНО К ЗАВТРАШНЕМУ ДНЮ. ДАЮ МНОГО БАЛЛОВ. Язык Паскаль

Answer 1

var a, b, s : integer;

begin

   writeln ('Введите a');

   readln(a);

   writeln ('Введите b');

   readln(b);

   for var i := a+1 to b-1 do if i mod 3 = 1 then s += i;

   writeln('сумма: ', s);

end.