Var a,b:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if b=0
then begin
write('min(',a,',',b,')=');
if a<b then writeln(a) else writeln(b);
end
else if b<0
then begin
write('max(',a,',',b,')=');
if a>b then writeln(a) else writeln(b);
end
else begin
a:=a*0.8;
b:=b*0.8;
writeln('a = ',a,' b = ',b);
end;
end.
Пример:
a = 5
b = -8
max(5,-8)=5
1) s:=1*2=2
2)s:=2*2=4
3)s:=4*2=8
4)s:=8*2=16
5)s:=16*2=32
6)s:=32*2=64
7)s:=64*2=128
Ответ: s:=128
1) 30*1024*8 бит .
2) 20*48*16. Занимает одна страница.
3) 30*1024*8/20*48*16.
Ответ:16 страниц
"Последние действие лучше записать дробью и выполнить необходимые сокращение".
Скачай в интернете активатор, и он активирует тебе автоматически Windows, там их много поищи по поисковику.