Переведите программу из паскаля в питон : //Заполнение матрицы по спирали (метод "улитки")
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.
298
337
Ответы на вопрос:
1.с устройства ввода (клава ,принтер ,мышь) информация поступает на компьютер. 2.специальное устройство конвертирует информацию в "компьютерный язык" в который входят 2 числа 1 и 0. 3.информация обрабатывается. 4.с устройства вывода (манитор ,колонки итд) информация поступает к нам в мозг.
Популярно: Информатика
-
JulianaBrolol30.10.2020 09:45
-
mkudryavceva1024.06.2021 19:24
-
movamrr18.07.2020 19:40
-
nacteylka01.05.2022 16:52
-
evasyperandreev11.01.2022 20:01
-
Софамимими16.06.2022 14:23
-
Lalalila03denchik27.01.2023 03:52
-
спасибо8430.12.2021 18:32
-
VasG1219.01.2022 19:52
-
SemMandarenova06.02.2023 13:09