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