Мне нужна помощь по информатике срочноВ общем мы делаем всё на

Мне нужна помощь по информатике безотлагательно

В общем мы делаем всё на Pascal ABC. и надобно решить следующее:

1. Отыскать сумму всех натуральных чисел от 1 до 100.
2. Отыскать сумму кубов всех естественных чисел от 11 до 50.
3. Найти сумму всех двузначных нечётных чисел.
4. Отыскать сумму квадратов всех естественных чисел от 50 до 90.
5. Отыскать сумму всех двузначных чётных чисел.

Заблаговременно Спасибо!!!!

Задать свой вопрос
1 ответ

1)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 1 to 100 do sum:= sum + i;

   write(sum);

end.


2)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 11 to 50 do sum:= sum + i * sqr(i);

   write(sum);

end.


3)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 10 to 99 doif i mod 2 = 1 then sum:= sum + i;

   write(sum);

end.


4)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 50 to 90 do sum:= sum + sqr(i);

   write(sum);

end.


5)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 10 to 99 doif i mod 2 = 0 then sum:= sum + i;

   write(sum);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт