Program project1;
uses
crt,math;
var s:real; i,j,f:real; a:integer;
begin
writeln('vvedite 1 chislo ');readln(i);
writeln('vvedite 2 chislo ');readln(j);
writeln('vvedite 3 chislo ');readln(f);
s:=i;
if j<s then s:=j;
if f<s then s:=f;
if s<0 then
begin
if i<0 then inc(a);
if j<0 then inc(a);
if f<0 then inc(a);
writeln('kolichestvo otricatelnix ',a:2);
end
else
begin
if i>0 then i:=i*-1;
if j>0 then j:=i*-1;
if f>0 then f:=i*-1;
end;
writeln('min chislo ',s:2:0);
readln;
end.
3кб=3*1024=3072байта=24576 бит.
Размер алфавита, с помощью которого записано сообщение 16 символов. Значит чтобы закодировать один символ понадобится ...
2 в степени 4 = 16.
...потребуется 4 бита.
24576 / 4 = 6144 символа.
Var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if a > b then writeln(a,'больше чем',b);
else writeln(a,'Меньше чем',b);
end.