100*60*80=480000 байт (1 книга в байтах)
480000:1024=468.75кБайт (1 книга в кбайтах)
650*1024=665600кБайт (Объем диска в кбайтах)
665600:468.75=1419.94
Ответ: всего можно хранить 1419 книг (для 1420 не хватает места)
1 пример.
Program zadacha; здесь путем ввода в программе будь-то
вручную через строку команды read(a);
Var a:Integer;
Begin
a:=155;
End.
2 пример. А здесь объявить константой.
Program zadacha2;
Const a=155;
Begin
Write(a);
End.
Всмысле какая задача? (Ну если я правильно понял вопрос,то математическая)
Тут находится только С по формуле: (A+B)*(B-A) и выводит результат (С) на экран.