16 бит - это 16/8 = 2 байта - именно столько занимает один символ.
Тогда страница займет 32×64×2 = 4096 байт = 4096/1024 = 4 Кбайта.
Если объем текста 48 Кбайт, то в нем 48/4 = <u>12</u> страниц.
Именно столько листов бумаги и понадобится при односторонней печати. При двухсторонней - 6 листов.
Построение графиков заданных функций
Ровно 13 строк:
program Geron;
var ab,bc,ca,p: real;
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите сторону треугольника AB: ');
readln(ab);
write('Введите сторону треугольника BC: ');
readln(bc);
write('Введите сторону треугольника CA: ');
readln(ca);
p:=(ab+bc+ca)/2;
writeln('Площадь треугольника равна ',sqrt(p*(p-ab)*(p-bc)*(p-ca)):0:3)
end.
Угу, вот, надеюсь, хватит:)
Dim x As real
Dim i As integer
INPUT x
FOR i=1 TO 30
x=x+(x*0.05)
NEXT i
PRINT x
END
П.С. не большая поправка верхнего решения, спасибо автору верхнего поста