Найдите сумму всех чётных натуральных чисел от 24 до 98 включительно
Найдите сумму всех чётных натуральных чисел от 24 до 98 включительно
Гость
Ответ(ы) на вопрос:
Гостьprogram dd;
var i,sum:integer;
begin
sum:=0;
for i:=24 to 98 do
begin
if (i mod 2)=0
then sum:=sum+i;
end;
writeln(sum);
end.
//
//
//
//
//на выходе: 2318
Не нашли ответ?
Похожие вопросы