Question

ДАЮ 50 БАЛЛОВ Переведите из Python в Pascal: a = int(input()) b = int(input()) s = 0 for i in range(a, b + 1): if i % 2 == 0: s += i else: s -= i print(s)

Answer 1

var a, b, s, i: integer;

begin

read(a, b);

s := 0;

for i := a to b do

   if (i mod 2 = 0) then

       s := s + i

   else

       s := s - i;

writeln(s);

end.

Answer 2

Вот эквивалент вашего кода на языке Pascal:

pascalCopy code
program SumEvenOdd;
var
  a, b, i, s: integer;
begin
  readln(a);
  readln(b);
  s := 0;
  
  for i := a to b do
  begin
    if i mod 2 = 0 then
      s := s + i
    else
      s := s - i;
  end;
  
  writeln(s);
end.

Обратите внимание, что в Pascal используется ключевое слово begin для обозначения начала блока кода внутри цикла и условия.