Я не совсем понял, зачем тебе тут randomize timer, но не суть. Сделал все в точности по коду.
Как-то так... )))
Смотри картинку...
Формула для надбавки:
=ЕСЛИ(B2<=15;0;ЕСЛИ(B2>25;A2*0,3;A2*0,15))
=ЕСЛИ(стаж<=15;0;ЕСЛИ(стаж>25;оклад*0,3;оклад*0,15))
Формула для всего:
=A2+C2
=оклад+надбавка
1) *
******
*****
2)**
т.к. тут 0, то ничего нет
****
***
program kolco;
var
s,s1,s2:real;
r1,r2:integer;
begin
writeln('введите r');
readln(r1);
writeln('введите R');
readln(r2);
s1:=pi*sqr(r1);
s2:=pi*sqr(r2);
S:=s2-s1;
writeln('площадь кольца равна:',S:2:3);
readln;
end.
1)
2*60=120 байт в строке
120*40=4800 байт на старнице
4800*1500= 7 200 000 байт=7.2 Мбайт во всей книге
2)
60*40=2400 байт
2400*150=360 000 байт =360 Кбайт=0.36 Мбайт
3)
128 Кбайт= 128 000 байт
128 000\ 2=64 000 символов
4)
1.5 Кбайт=1536 байт
1536*8=12288
12288\3072=4 бит
5)
в 1 Мбайте 1572864 байт
1572864\512=3072 байта=24 576 бит размер сообщения
24 576\2048=12 бит - размер одного символа
6)
8 бит = 1 байт
48*1=48 байт в строке
48*40=1920 байт в странице
1920*8= 15 360 байт в рассказе
15 360 байт= 15 Кбайт