Для наглядности, чтобы пользователи могли легко ознакомиться с информацией
HEX 86₁₆
OCT 206₈
BIN 1000 0110₂
131. т.к. N=4, то i= 2, следовательно - 2 бита
133. 65 536 = 2^16, 16:8= 2 БАЙТА
137. 16 777 216 = 2^24, i=24
I=K*i=1024*768*24= 18 874 368 бит : 8 = 2 359 296 байт : 1024 = 2304 кбайт
остальные прости не знаю)
Program k23;var a, m:integer;begina:=2300;readln(m);a:=a*m;writeln(a div 1000, ' кг ', a-1000*(a div 1000), ' гр');end.
program Hello;
var i:integer;
begin
write('введите целое число от 1 до 11: ');
readln(i);
writeln('**********************************');
case i of
'1' : WriteLn('Привет, первоклассник!!!');
'2' : WriteLn('Привет, второклассник!!!');
'3' : WriteLn('Привет, третьеклассник!!!');
'4' : WriteLn('Привет, четвероклассник!!!');
'5' : WriteLn('Привет, пятиклассник!!!');
'6' : WriteLn('Привет, шестиклассник!!!');
'7' : WriteLn('Привет, семиклассник!!!');
'8' : WriteLn('Привет, восьмиклассник!!!');
'9' : WriteLn('Привет, девятикласссник!!!');
'10' : WriteLn('Привет, десятиклассник!!!');
'11' : WriteLn('Привет, одиннадцатиклассник!!!');
else writeln('вы должны ввести число от 1 до 11')
end;
writeln('**********************************');
end.
program Phone;
var day:integer; time:real; week:array[1..7] of string;
begin
week[7]:='Воскресенье';
week[6]:='Суббота';
week[5]:='Пятница';
week[4]:='Четверг';
week[3]:='Среда';
week[2]:='Вторник';
week[1]:='Понедельник';
write('введите длительность разговора в минутах ');
readln(time);
write('введите номер дня недели ');
readln(day);
writeln('***** alphaeus is thinking... *****');
case day of
'1'..'5':
begin
writeln(week[day]);
writeln('Сумма без скидки - ', 2.3*time);
writeln('Сумма скидкой - ', 0.8*2.3*time);
writeln('Скидка не предоставляется');
end;
'6','7':
begin
writeln(week[day]);
writeln('Сумма без скидки - ', 2.3*time);
writeln('Сумма скидкой - ', 0.8*2.3*time);
writeln('Вам предоставлена скидка!');
end;
else writeln('вы ввели неправильный номер дня недели')
end;
writeln'************************************');
end.
