Задать вопрос Регистрация
Помочь другим

  • Составьте программу вычисляющую, сумму квадратов чисел от 1 до n, (n- вводится с клавиатуры) если n-четное, и сумму кубов чисел от 1 до n, если n-нечетное1 Использовать цикл REPEAT

Ответы 1

  • var i,x,n:integer;

    begin

    i:=1;

    writeln('Vvedit N');

    readln(n);

    if n mod 2 = 0 then begin

    repeat

    x:=i*i+x;

    i:=i+1;

    until i>n;

    end

    else begin

    repeat

    x:=i*i*i+x;

    i:=i+1;

    until i>n;

    end;

    writeln(x);

    readln;

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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