Program n_1;
var a, b, c, d:integer;
begin
readln(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:= a div 100 mod 10;
writeln('Число ', a, ' состоит из ', d, ' сотен, ', c, ' десятков и ', b, ' единиц');
end.
1) 512=2^9; - 9 бит 1 пиксель после сжатия;
4096=2^12 - 12 бит 1 пиксель до сжатия
2) 12/9=4/3 - каждый пиксель после сжатия уменьшит свой размер в (4/3) раза
3) 1050*4/3=350*4=1400 (Кбайт)
Program n1;
var
i,n,x:integer;
begin
n:=0;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if x>n then n:=x;
end;
writeln(n);
<span>end.
</span>program n1;
var
i,n,x:integer;
begin
n:=32767;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if (x<n) and (x mod 2=0) then n:=x;
end;
writeln(n);
end.<span>
</span>