uses crt;
var a,b,c,max:integer;
begin
writeln('a,b,c');
readln(a,b,c);
if a>b then max:=a;
if b>c then max:=b;
if c>a then max:=c;
writeln('max=',max);
<span>end.</span>
PROGRAM Z13;
const n=6; m=7;
var a: array[1..n, 1..m] of integer;
i,j,k:integer;
begin
k:=2;
for j:=1 to m do
begin
for i:=1 to n do a[i,j]:=k;
k:=k+3;
end;
for j:=1 to m do
begin
for i:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.<span>
</span>
я так понимаю, что тебе нужно найти, все ли цифры 3 написаны? Если да, то нужно всего нажать на две клавиши на клавиатуре,: ctrl + f
i изменяется от 12
до 7
с шагом -1
Этот текст добавлен, чтобы добрать необходимые 20 символов.
2А (16сс)= 10 1010 (2сс) =101 010 (2сс) =52 (8сс)
2А (16сс) =2*16 +10 =42(10сс)