Program Task;
Var i: Integer;
p: LongInt;
Begin
p := 1;
For i := 1 To 10 Do
p := p * i;
WriteLn('Результат: ', p);
ReadLn;
<span>End.</span>
Найдём сколько <em><u>весит один символ</u></em>
560/70=<em><u>8 бит </u></em>
___________________
теперь найдём <em><u>мощность алфавита</u></em>
2^8=<u><em>256</em></u>
А) 20*0,6 = 12мб. (после сжатия).
12мб = 12 * 2^23 бит.
Теперь находим время на передачу.
12 * 2^23 бит/2^20 = 12 * 8 = 96.
96 + 10 + 2 = 108.
Б) 20мб = 20 * 2^23 бит.
20 * 2^23/2^20 = 20 * 8 = 160.
160 - 108 = 52.
Ответ: А52.
Сообщений, в смысле словосочетаний может быть хоть сколько много, а вот различных слов может быть 8*8*8 (8 в 3 степени)
Var n,s,i:integer;
begin
write('Введите число: ');
Readln(n);
s:=0;
for i:=1 to n do s:=s+i;
Writeln('s=',s);
<span>end.</span>