Пробовал, решить невозможно, или я такой дуболом.
Для определения числа в разряде десятков, нужно как минимум 9 вопросов.
Спрашивая "Больше ли оно K" - добиться этого невозможно.
Но могу подсказать начало :)
program dlya_Pro100LiNa;
var a,b,c,d:integer;
m:boolean;
begin
writeln ('Введите число от 1-го до 1000');
repeat read(a) until (a>=1)and(a<=1000);
...
end.
Жауап: 500Кб
Түсініктеме:
1 Килобайт = 1024 байт
256000 бит / с = 32000 байт / с
файл өлшемі-32000 * 16 = 512000 байт
512000 байт = 500 Килобайт
Известна сторона равностороннего треугольника найти высоту и площадь этого треугольника, в QBasic
Ну наверно набираешь 5 литровое и переливаешь его в в 9, потом снова набераешь 5 и наполняешь 9 до черты в 5 останется литр воды вот и все дела=)))))