Ответ:
Если часы только целые var a:integer;
Объяснение:
program Project1;
var a:real;
begin
write('Введите время, которое тратите на уроки: ');
readln(a);
if a<=1 then
write('Вы ленитесь')
else
if a<=3 then writeln('Это оптимальное время')
else writeln('Подумайте о здоровье');
readln;
end.
Дано: N=32 ; K=1024
Решение:
1024*5= 5120 бит=640 байт
Вода,волк,волга,ворона.волна
весна,ведро,ветер,ветка,век
вагон,ваза,вата,ванна,ваня
Program n1;
var a: real;
begin
write('введите скорость в км/ч: ');
readln(a);
write('эта скорость в м/с: ',a*5/18);
end.
1 книга = 2048*256*128 = 67108864 байт = 65536 кбайт = 64 мбайт.
750 гб диска = 768000 мбайт
768000/64 = 12000 книг