Var u1,u2,u3,u4,u5,otv1,otv2,otv3,otv4,otv5: Double; //ввод десятичных через точку
begin
writeln('Введите рост 1 в метрах');
readln(u1);
writeln('Введите рост 2 в метрах');
readln(u2);
writeln('Введите рост 3 в метрах');
readln(u3);
writeln('Введите рост 4 в метрах');
readln(u4);
writeln('Введите рост 5 в метрах');
readln(u5);
otv1 := u1*100;
otv2 := u2*100;
otv3 := u3*100;
otv4 := u4*100;
otv5 := u5*100;
writeln('ответ 1 ', otv1, 'см');
writeln('ответ 2 ', otv2, 'см');
writeln('ответ 3 ', otv3, 'см');
writeln('ответ 4 ', otv4, 'см');
writeln('ответ 5 ', otv5, 'см');
end.
1. 8 * 40 * 64 * 16 = 327680 (бит)
327680 / 8 = 40960 (байт)
40960 / 1024 = 40 (Кбайт)
ответ: 40 Кбайт
3. Я насчитал в вашей строке 29 символов, если она точь-в-точь, как вы написали. Если не столько, просто поменяйте значение в формуле:
29 * 16 = 464 (бит)
464 / 8 = 58 (байт)
ответ: 54 байт
2. Сначала переводим 40 Кбайт в биты, действия обратные тем, которые используются в первой задаче:
40 Кбайт = 327680 (бит)
327680 / 16 = 20480 (всего символов)
20480 / 8 = 2560 (символов на одной странице)
2560 / 64 = 40 (строк на одной странице)
ответ: 40
