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

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.