• ПАСКАЛЬ!ПОЖАЛУЙСТА!
    С помощью одного цикла сформировать и вывести два одномерных массива размерностью по 8 элементов каждый. Массивы заполнить по формулам:
    а[i]=i^2+1
    b[i]=2•i-1

Ответы 1

  • var  a,b:array[1..8] of integer;  i,x:integer; s:string;beginwriteln('Первый массив:');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.
  • Добавить свой ответ

Войти через Google

или

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

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

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