Составить программу для вычисления суммы четных чисел натурального ряда от 1 до 100
Составить программу для вычисления суммы четных чисел натурального ряда от 1 до 100
Гость
Ответ(ы) на вопрос:
ГостьVar s, k: integer;
Begin
S:=0;
For k:=1 to 100 do
If k mod 2=0 then s:=s+k;
Write('сумма четных чисел данного ряда равна ', s);
End.
Не нашли ответ?
Похожие вопросы