Var
n:integer;
begin
writeln('Введите номер дня недели');
readln(n);
case n of
1: write('Понедельник');
2: write('Вторник');
3: write('Среда');
4: write('Четверг');
5: write('Пятница);
6: write('Суббота');
7: write('Воскресение');
else writ('Ошибка! В неделе 7 дней, а не больше!');
end;
end.
1. 1 символ занимает 1 байт. "восемь мегабайт" 15 символов с пробелом (он тоже занимает место). 15 бит содержится в сообщении "восемь мегабайт"
Ответ: 15 бит.
2. 55*72*365=1445400 количество символов в книге, 1 символ 1 байт.
переведем байты в килобайты 1445400 / 1024 = 1411.52 Кбайт
получим мегабайты 1411.52 / 1024 = 1.378 мб.
Ответ: 1.378 мб.
3. мощность 256 символов это 2 в 8 степени. 1 символ занимает 8 байт.
всего 35 символов. 35*8= 280 байт.
Ответ: 280 байт информационный объем текста.
Ответ:
1)
Begin
Count:=0;
repeat
Read (ch);
If ch> 0 then inc(count);
Until ch<>0
Write(count);
End.
2)
Begin
Sum:=0;
Count:=0;
repeat
Read (ch);
Sum:=sum+ch;
If ch mod 9=0 then inc(count);
Until sum<200
Write(count);
End.
<em>
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>begin
var a:=ReadReal('a=');
if a>0 then Writeln(0.4*ln(a):0:4)
else Writeln('Логарифм не существует')
end.
<u>Пример</u>a= 2.543
0.3733