создать программу по информатике ** паскаль абц создать программу вычисления суммы чётных...

Question

создать программу по информатике на паскаль абц создать программу вычисления суммы чётных чисел в диапозоне от 1 до 100

Answer 1

Var value, sigma, counter : integer;
Begin
counter := 0;
value := 0;
sigma := 0;
while counter < 50 Do
     begin
     value := value + 2;
     sigma := sigma + value;
     counter := counter + 1;
     end;
writeln(sigma);
readln();
End.

Comments

поздно

---

урок закончился

---

Ты ведь понимаешь, что мне глубоко насрать?