Книга, набранная с компьютера, содержит 159 страниц. на каждой странице-40 строк. в каждой строке 60 символов. каков объём информации в книге (в кб)? и быстро

Объем информации в книге - 358.59375 кБ

Объяснение:

159 страниц

40 строк на каждой странице

60 символов на каждой строке

1 символ - 1 байт, 1024 байта = 1КБ

60*40=2400 байтов

2400 байтов на каждой странице

2400*159=367,200 байт

367,200 : 1024=358.59375 кб

//Задача #1

begin

 var a,b,c: integer;

 write('Введите ваш возраст: '); readln(a);

 write('Введите время, проведенное за компьютером (в минутах): '); readln(b);

 if b<0 then else

 case a of

   6..8: c:=15;

   9..11: c:=30;

   12..15: c:=45;

   16..17: c:=60;

   else write('Вам ',(a<6)? 'меньше 6':'больше 17-ти',' лет'); exit;

 end;

 write((c-b>0)? 'Вам осталось находиться за компьютером '+(c-b).ToString+' минут':'Ваш сеанс закончился '+abs(c-b)+' минут назад');

end.

//Задача 2

var

 a:integer;

 b:real;

begin

 var N: array [1..4] of (string,real);

  N[1]:=('АИ-92',42.30);

  N[2]:=('АИ-95',45.30);

  N[3]:=('АИ-98',53.71);

 writeln('В наличии имеется: ');

 for var L:=1 to 3 do

   println(L+') ',N[L].Item1,' ',N[L].Item2,' руб/л');

 write('Введите номер марки бензина (1-3): ');readln(a);

 if (a>=1) and (a<=3) then begin

  writeln('Вы выбрали бензин ',N[a].Item1);

  write('Введите количество литров: ');readln(b);

  write((B<0)? 'Указано отрицательное количество литров':('Сумма вашей покупки: '+N[a].Item2*b+' рублей'))

  end;

end.

//Задача 4

begin

 var K:char;

 var N: array ['A'..'D'] of real;

 for var L:='A' to 'D' do

   begin

     write('Введите расстояние до города ',L,' (км): ');readln(N[L]);

   end;

 write('В какой из городов вы направляетесь? ');readln(K);

 K:=K.ToUpper;

 write('Вам понадобится ',(N[K]/100)*9,' литров бензина');

end.

Примечание:

У задачи №3 слишком мало вводных параметров

n=0

while n<+1000: # Пока n не станет четырехзначным числом алгоритм не запуститься.

n=n+1

while n<10000 and n>999: # Здесь прописанны условия для n

nlist=list(str(n)) # В данной строчке мы делем число на отдельные цифры

c=0 # Не обращай внимания это нужно для кода

v=len(nlist)

while c<v:

p=nlist.count(nlist[c]) # Здесь программа находит сколько одинаковых цифр в числе, и если их три, то пишет его

if p==3:

print(n)

c=c+1

n=n+1

Я согласен, что код возможно сильно сыроват и не совсем отвечает требованиям, но я только недавно начал изучать программирование, да и к тому же думаю, что вы на примере этого разберётесь, что делать дальше. Надеюсь я вам