Vara,b,c:real;begin readln(a,b); if a>=b then begin b:=b*b*b; a:=sqrt(a); end else begin a:=a*a*a; b:=sqrt(b); end; writeln(a:0:0,' ',b:0:0); readlnend.
program raf105;
var
s,p,n: real;
i,let: integer;
begin
write('Введите положенную сумму: ');
readln(s);
write('Введите ежегодный прирост (%): ');
readln(p);
write('Введите желаемую сумму: ');
readln(n);
while s < n do
begin
let+= 1;
s+= s/100*p;
end;
writeln('Первоначальная сумма увеличится до желаемой через ',let,' л.');
end.
<h3><em><u>Язык PascalABC</u></em></h3>
1. 2 во 2 степени=4 это сообщение несет 2 бита. Здесь я не уверена, но думаю верно) Ответ: 2 бита
2. 1 символ весит=8бит=1байт
150*40*60=360000 символов в книге и весит книга 360000 байт можно перевести в Кбайты для удобства для этого нужно 360000/1024=351,5625Кбайт Ответ:351,5625Кбайт
<span>3. 2 в 6 степени = 64, т.е. один символ равен 6 битам . 0.75*1024*8=6144 бита 6144/32=192 бита - одна страница весит 192*6=1152 символа на каждой странице Ответ: 1152 символа</span>
Если речь идет о преобразовании из 10-тичной СС в 8-ричную СС, то:
600 : 8 = 75 // ост 0
75 : 8 = 9 // 3
9 : 8 = 1 // 1
1 : 8 = 0 // 1
Итак: 600(10) = 1130(8)
Аналогично со вторым числом
2010(10) = 3732(8)