Найти сумму всех чётных чисел от 100 до 200 помогите (информатика циклы)
Найти сумму всех чётных чисел от 100 до 200 помогите (информатика циклы)
Гость
Ответ(ы) на вопрос:
Гостьэто арифметическая прогрессия а1=100, d=2 a51=200 Найти S51=(a1+a51)*51/2=7650
Гостьuses Crt;
var i, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=100 to 200 do
if (i mod 2)=0 then Sum:= Sum+i;
WriteLn (' Sum = ', Sum);
ReadLn;
end.
Не нашли ответ?
Похожие вопросы