Перевести в десятичную систему счисления f421(16), 12c.08(16), 1011.011(2), 25.4(8)
207
218
Ответы на вопрос:
F421(16) - 62497(10) 12c.08(16) - 300.03125(10) 1011.011(2) - 11.375(10) 25.4(8) - 21.5(10)
Объяснение:
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j,k,x,y:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
k:=-1;
for j:=1 to m do
begin
y:=1;
x:=j;
while(x>0) and(y<=n) do
begin
k:=k+1;
a[y,x]:=k;
x:=x-1;
y:=y+1;
end;
end;
for j:=2 to n do
begin
y:=j;
x:=m;
while(x>0)and(y<=n) do
begin
k:=k+1;
a[y,x]:=k;
x:=x-1;
y:=y+1
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln
end;
readln
end.
Переведите на Питон, в Паскале давно не работал
Популярно: Информатика
-
slava28529.10.2022 19:06
-
sasha363716.03.2023 20:49
-
AngelinaMon117.06.2023 00:54
-
Ovhinoco05.11.2022 23:15
-
rynnotynno19.01.2023 01:14
-
seliza41511.12.2020 11:21
-
polly13215.11.2020 05:09
-
Van4more08.06.2023 00:15
-
krasorka30.08.2022 21:07
-
alena67912.12.2020 12:56