Program n1;
Uses CRT;
Var a,b: integer;
begin
Writeln('Vvedite chisla');
Readln(a,b);
If a>b then writeln(2*a*b,' ',a+b/2:2:2)
else if a=b then writeln('ravny!')
else writeln(a+b/2:2:2,' ',2*a*b);
readln
end.
Const n=13;
var
c:array[1..n] of integer;
i,num:integer;
begin
for i:=1 to n do c[i]:=random(-10,10);
for i:=n downto 1 do begin
write(c[i],' ');
if c[i] < 0 then begin
writeln(i);
break;
end;
end;
end.
1) а)545*490=267 050 пикселей
б)14,4 на 12,95 см
в)545*490*24/8=801 150 байт
2) а)360*340=122 400
б)5,71 на 5,39 см
в)360*340*24/8= 367 200 байт
Program Evklid;
var M,N : integer;
begin
writeln (`Введите M и N`);
readln (M , N);
while M<>N do
begin
if M>N
then M:=M-N
else N:=N-M
end;
write (`нод =`,M);
end.
101011001110112<span> =1∙2^</span>13+0∙2^12+1∙2^11+0∙2^10+1∙2^9+1∙2^8+0∙2^7+0∙2^6+1∙2^5+1∙2^4+1∙2^3+0∙2^2+1∙2^1+1∙2^0<span> = 8192+0+2048+0+512+256+0+0+32+16+8+0+2+1 = 11067</span>