• Задача 1
    Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+…+1/65.

    Задача 2
    Вывести на экран кубы целых чисел от 1 до 9. Найти сумму и определить количество полученных чисел.

    Задача 3
    Напишите программу вывода всех четных чисел от 2 до 100 включительно и подсчитайте сумму.

    Задача 4
    Напишите программу, определяющую сумму всех нечетных чисел от 1 до 99.

Ответы 1

  • PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  SeqGen(ReadInteger('n='),i->1/(1+i)).Sum.Println; // №1  // №2  var a:=ArrGen(9,i->(i+1)*Sqr(i+1)); a.Println;  Writeln('Кол-во=',a.Length,', S2=',a.Sum);  Writeln('S3=',Range(2,100,2).Println.Sum); // №3  Writeln('S4=',Range(1,99,2).Sum) // №4end.Примерn= 654.75927551909038 1 8 27 64 125 216 343 512 729Кол-во=9, S2=20252 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100S3=2550S4=2500
    • Автор:

      soledad
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years