1) 256 цветов, значит 1 пикс - 8 бит = 1 байт
2400/1=2400 пикс
Не забудь спасибо!!!
uses crt;
var a,b,s,p:real;
begin
clrscr;
write('a='); read(a);
write('b='); read(b);
s:=a*b;
p:=2*(a+b);
write('S=',s,' P=',p);
end.
Ответ:1)Жесткий диск, 2)Процессор
Объяснение:Думаю правильно
Var
i:integer;
begin
for i:=50 downto 1 do
if i mod 2 <> 0 then
write(i,' ');
end.
а)
var x, y: integer;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
y := y - x;
x := x - 2;
if x < y then
begin
y := y - x;
x := x - 2;
end;
writeln('x = ', x);
writeln('y = ', y);
<span>end.
б)
var x, y: integer;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
y := y + x;
x := x - 2;
if x <> 0 then
begin
y := y + x;
x := x - 2;
end;
writeln('x = ', x);
writeln('y = ', y);
<span>end.</span></span>