Выполните арифметические действия: 1)346 в восьмеричной-64 в восьмеричной 2)1022 в шестнадцатеричной-5a - id858189320230328 от канапушка167 28.03.2023 11:13

Question

Информатика: Выполните арифметические действия: 1)346 в восьмеричной-64 в восьмеричной 2)1022 в шестнадцатеричной-5a в шестнадцатеричной 3)24ecl в шестнадцатеричной* 22 в шестнадцатеричной

канапушка167 · Accepted Answer

Program aaa;
var A: array[1..100,1..100] of integer; n,k,r,c,x: integer; i,j: byte;
begin
randomize;
writeln ('Введите N, K, R, C');
readln (n,k,c,r);
x:=0;
for i:=1 to n do begin
for j:=1 to n do begin
writeln ('Введите ',j,'-е число ',i,'-ой строки');
readln (A[i,j]);
//или можно ввести рандомно: A[i,j]:=random(0,1);
if ((i>(r-k)) and (i<=r) and (j>(c-k)) and (j<=c) and (A[i,j]=1))
then x:=x+1
end
end;
writeln;
// в следующем цикле выводится весь массив для наглядности
// его можно просто убрать если не нужен
for i:=1 to n do begin
for j:=1 to n do begin
write (A[i,j]:3);
end;
writeln
end;
writeln;
writeln (x)
end.

MOGZ ответил