ОЧЕНЬ СРОЧНО! Pascal ABC. Нужно вычислить и вывести сумму чётных целых чисел в интервале...

Question

ОЧЕНЬ СРОЧНО! Pascal ABC. Нужно вычислить и вывести сумму чётных целых чисел в интервале от 1 до n: 1. цикл «ДО» (repeat) 2. цикл «ПОКА» (while) 3. цикл «ДЛЯ» (for)

Answer 1

1)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 repeat

 if i mod 2=0 then S:=S+i;;

 inc(i)

 until i>n;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

 readln;

End.

2)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 while i<=N do</p>

 begin

   if i mod 2=0 then S:=S+i;

   i:=i+1;

 end;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

end.

3)

var i, S, N: integer;

begin

 writeln('Введите N:');

 readln(N);

 for i:=1 to N do

   if i mod 2=0 then S:=S+i;

 writeln('Сумма всех четных чисел 1 до ',N,' равна: ',S);

end.