• var
    i,j,n,s:integer;
    begin
    readln(n);
    for i:=1 to n do
    begin
    s:=0;
    for j:=1 to i do
    s:=s+2*j-1;
    writeln(i,'*',i,'=',s);
    end;
    readln;
    end.
    Составьте блок схему на эту задачу пожалуйста.
    Паскаль

Ответы 2

  • Конечно, спасибо вам!
    • Автор:

      jimena
    • 6 лет назад
    • 0
  • Прикрепил изображение.
    answer img
    • Автор:

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

Войти через Google

или

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

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

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