Найдите сумму всех чётных натуральных чисел от 24 до 98 включительно

Найдите сумму всех чётных естественных чисел от 24 до 98 включительно

Задать свой вопрос
1 ответ
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт