Составить алгоритм вычисления суммы нечетных чисел от 1 до 25
Составить
алгоритм вычисления суммы нечетных
чисел от 1 до 25
Гость
Ответ(ы) на вопрос:
Гостьvar
i, summ:integer;
begin
summ := 0;
for i:=1 to 25 step 2 do summ := summ + i;
end.
Не нашли ответ?
Похожие вопросы