// процедура обмена значений переменных а и b
procedure swapp(var a,b:integer);
var c: integer;
begin
c:=a;
a:=b;
b:=c;
end;
// основная программа
var a,b,c: integer;
begin
write('числа a b c через пробел: ');
readln(a,b,c);
if a>b then swapp(a,b);
if b>c then swapp(b,c);
writeln('среднее по значению: ',b);
end.
Ввод -вывод:
числа a b c через пробел: 25 14 18
среднее по значению: 18
1. k=640*400=256000 пикс (2^8*1000)
N=4 цвета; N=2^i; 4=2^2=>i=2 бит на пикс
I=k*i=2*2^8*1000=2^9*1000 бит = 2^-4*1000 Кб = 62,5 Кб
Ответ: 62,5 Кб
2. k=128*128=16384 пикс (2^14)
I=4 кб=2^15 бит
i=I/k=2^15/2^14=2^1=2 бит на пикс
N=2^i=2^2=4 цвет
Ответ: 4 цвета
Текстовые файлы можно изменять и удалять
Ахахах ты что с другой планеты??? Это программа на компьютере в которой презентации делают!!!!)))))))