Переведите программу из паскаля в питон : //Заполнение матрицы по спирали (метод "улитки")
uses crt;
var a:array[1..10,1..10]of integer;
i,j,n:integer;
x,y:integer;
num:integer;
add:integer;
dir:integer;
begin
clrscr;
x:=0;
n:=5;
y:=1;
num:=1;
Add:=n;
dir:=1;
while (add<>0) do
begin
i:=0;
while (i<>add) do
begin
x:=x+dir;
a[y,x]:=num;
num:=num+1;
i:=i+1;
end;
i:=0;
add:=add-1;
while (i<>add) do
begin
y:=y+dir;
a[y,x]:=num;
num:=num+1;
i:=i+1;
end;
dir:=dir*(-1);
end.
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln
end.
145
381
Ответы на вопрос:
program prog;
var
x, f: real;
begin
readln (x);
if(x > 5) then f : = 2
else f : = x;
writeln (f);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Деткатыпростокласс31.10.2021 22:17
-
vovamandrik060p09ui128.11.2021 21:25
-
Vovanchik597808.02.2022 04:36
-
lenabota107.08.2021 22:28
-
VoDarks06.02.2022 18:52
-
Tjfjfjcgjgk17.08.2021 04:09
-
katya02210.02.2023 19:26
-
Дениссирвачак12.08.2022 00:04
-
dianadiii16.06.2023 03:21
-
алексей04105.02.2023 23:01
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.