Нужно! дан алгоритм, некие действия. чему равна переменная к? 1) а=12 2) в=а+19 3) с=37-в+10 4) с=35-с - id317214120230521 от Miliosha 21.05.2023 12:03

Question

Информатика: Нужно! дан алгоритм, некие действия. чему равна переменная к? 1) а=12 2) в=а+19 3) с=37-в+10 4) с=35-с 5) d=с+6 6) к=d+15 7) ф=0; в=0; с=1; d=8; к=к

Miliosha · Accepted Answer

//Я просто опишу метод записи матрицы
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;

procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;

procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;

begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.

Нужно! дан алгоритм, некие действия. чему равна переменная к? 1) а=12 2) в=а+19 3) с=37-в+10 4) с=35-с 5) d=с+6 6) к=d+15 7) ф=0; в=0; с=1; d=8; к=к

MOGZ ответил