• pascal

    помогите с двумя задачами срочно!!

    1. составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N

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

Ответы 2

  • 1. var n,i:integer;beginreadln(n);for i:=1 to n do writeln(i*i);end.2.var n,i:integerbeginfor i:=1 to 99 doif i mod 2 = 1 then n+=i;writeln(n)end.
  • // PascalABC.NET 3.2, сборка 1383 от 09.02.2017// Внимание! Если программа не работает, обновите версию!Задача 1begin  Writeln('S=',Range(1,ReadInteger('N=')).Sum(x->x*x))end.ПримерN= 10S=385Задача 2begin  Writeln('S=',Range(1,99,2).Sum)end.РезультатS=2500
    • Автор:

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

Войти через Google

или

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

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

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