Блог для маленьких школьников и их родителей
ШколаЛа

Мне нужна помощь по информатике срочно В общем мы делаем всё на Pascal ABC. и надо решить следующее:…

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Мне нужна помощь по информатике срочно

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

1. Найти сумму всех натуральных чисел от 1 до 100.

2. Найти сумму кубов всех натуральных чисел от 11 до 50.

3. Найти сумму всех двузначных нечётных чисел.

4. Найти сумму квадратов всех натуральных чисел от 50 до 90.

5. Найти сумму всех двузначных чётных чисел.

Заранее Спасибо!

Ответов к вопросу: 1
  • vpov
    19.08.2024 | 23:39

    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 do if 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 do if i mod 2 = 0 then sum:= sum + i;
       write(sum);
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.