profile
Опубликовано 6 лет назад по предмету Информатика от suyarenbetovnail

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

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

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

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

  1. Ответ
    Ответ дан lingvini2013

    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.

Самые новые вопросы