100*60*80=480000 байт (1 книга в байтах)
480000:1024=468.75кБайт (1 книга в кбайтах)
650*1024=665600кБайт (Объем диска в кбайтах)
665600:468.75=1419.94
Ответ: всего можно хранить 1419 книг (для 1420 не хватает места)
Program prog;
uses crt;
var
a:array[1..100] of real;
m:integer;
s1, s2, s3, s4:real;
begin;
for m:=1 to 12 do
begin
write('В месяц ',m,' температура t = ');
readln(a[m]);
end;
s1:=(a[12]+a[1]+a[2])/3;
s2:=(a[3]+a[4]+a[5])/3;
s3:=(a[6]+a[7]+a[8])/3;
s4:=(a[9]+a[10]+a[11])/3;
writeln('Средняя температура зимних месяцев = ', s1:0:3);
writeln('Средняя температура весенних месяцев = ', s2:0:3);
writeln('Средняя температура летних месяцев = ', s3:0:3);
writeln('Средняя температура осенних месяцев = ', s4:0:3);
end.
A \ c \ c(ОТРИЦ) \ A<C(Отриц)
0 \ 0 \ 1 \ 0
0 \ 1 \ 0 \ 0
1 \ 0 \ 1 \ 1
1 \ 1 \ 0 \ 0
Ну, если А и В задаются как угодно. Тогда задача имеет море способов решения.
К примеру:
А= 9
В= 4
9-4=5 и т.д
Зачем тебе интернет а бывает крутой