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.

Answer 2

поздно

Answer 3

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

Answer 4

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