• Напишите программу на языке паскаль, которая вычесляет сумму:
    а) первых n натуральных чисел;
    б) квадратов первых n натуральных чисел;
    в) всех чётных чисел в диапазоне от 1 до n;
    г) всех двузначных чисел.

Ответы 1

  • var    i, s1, s2, s3, s4, n: integer;begin    write('n = ');    readln(n);    s1 := 0;    s2 := 0;    s3 := 0;    s4 := 0;        for i := 1 to n do    begin        s1 := s1 + i;        s2 := s2 + sqr(i);        if i mod 2 = 0 then s3 := s3 + i;    end;        for i := 10 to 99 do s4 := s4 + i;        writeln('Сумма первых n натуральных чисел: ', s1);    writeln('Сумма квадратов первых n натуральных чисел: ', s2);    writeln('Сумма всех четных чисел: ', s3);    writeln('Сумма всех двухзначных чисел: ', s4);end.
    • Автор:

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

Войти через Google

или

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

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

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