Для чисел від 1 до 10 обчисліть квадратні корені та корені четвертого степеня. Результати виведіть у вигляді таблиці

211

293

Посмотреть ответы 1

Ответы на вопрос:

гнеуй

Информатика

4,7(44 оценок)

Var a,b: array[1..8] of integer; i,x: integer; s: string; begin writeln('первый массив: '); for i: =1 to 8 do begin x: =sqr(i)+1; a[i]: =x; write(x,' '); x: =2*i-1; b[i]: =x; s: =s+inttostr(x)+' '; if i=8 then begin writeln; writeln('второй массив: '); writeln(s); end; end; end.