Var a,b,x:real;
<span>begin </span>
<span>writeln('Введите зачения чисел a и b'); </span>
<span>read(a,b); </span>
<span>x:=a+b; </span>
<span>writeln('Сумма чисел a+b=',x); </span>
<span>end. </span>
150 * 60 *40 = 360000 символов (всего)
1 символ = 1 байт
360000:=
1) 2880000 битов
2) (приблизительно) 352 кб
3) 0,34 мб
4) 0, 0003 гб
5) 0,0000003 терабайта Если для кодирования символа используется 8 бит, то объем книги:
1500*40*60*8 бит = 150*40*60*8 /8 байт = 150*40*60 байт =
150*40*60 / 1024 Кбайт = 351,5625 Кбайт = 351,5625/1024 Мбайт ≈ 0,35 Мбайт.
или
Если для кодирования символа используется 8 бит, то объем книги:
1500*40*60*8 бит = 150*40*60*8 /8 байт = 150*40*60 байт =
150*40*60 / 1024 Кбайт = 351,5625 Кбайт = 351,5625/1024 Мбайт ≈ 0,35 Мбайт.
Var
n:integer;
begin
readln(n);
n:=n mod 7;
if n=1 then
writeln('Понедельник');
if n=2 then
writeln('Вторник');
if n=3 then
writeln('Среда');
if n=4 then
writeln('Четверг');
if n=5 then
writeln('Пятница');
if n=6 then
writeln('Суббота');
if n=7 then
writeln('Восресенье');
end.
program zadacha;
uses crt;
var a,b,c: integer;
begin
writeln('Введите 3 числа');
readln(a,b,c);
writeln(sqrt(a*a*a+b*b*b+c*c*c));
readln;
end.