Создать программу по информатике на паскаль абц создать программу вычисления суммы чётных чисел в диапозоне от 1 до 100
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
