перевести код из паскаля в фортран f90 var i, j, k, s, x, y:integer;
a:array[1..7,1..7] of integer;

begin
x:=2;
y:=6;
for k:=1 to 4 do
begin
for i:=x-1 to y+1 do
begin
s:=s+1;
a[x-1,i]:=s;
end;

for j:=x to y+1 do
begin
s:=s+1;
a[j,i]:=s;
end;

for i:=y downto x-1 do
begin
s:=s+1;
a[y+1,i]:=s;
end;
for j:=y downto x do
begin
s:=s+1;
a[j,i]:=s;
end;

x:=x+1;
y:=y-1;

end;

writeln('massive 15 = ');
for i:=1 to 7 do
begin
for j:=1 to 7 do
write(a[i,j]:5);
writeln;
end;

end.

108

374

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

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

linmiss

Информатика

4,5(35 оценок)

program xxx;

var i, k, c, e : integer

begin

k: =0;

for i: =100 to 999 do

begin

c: = i div 100;

e: =i mod 10;

if c = e then k: =k+1

end;

writeln('кол-во палиндромов =', k);

readln

end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.