Program task1;
var a :integer;
begin
randomize; a:= 0; while (a <> 5) and (a <> 6) do a:= random(7); writeln(a);
<span>end.
program task2;
var Digit, i :integer; DigitStr :string;
begin
readln(Digit); str(Digit,DigitStr); for i:= length(DigitStr) downto 1 do write(DigitStr[i]);
<span>end.
program task3;
var Digit :integer; NewDigit, DigitStr :string;
begin
readln(Digit); str(Digit,DigitStr); NewDigit:= DigitStr[3] + DigitStr[4] + DigitStr[1] + DigitStr[2]; writeln(NewDigit);
<span>end.</span></span></span>
1. Посчитаем количество символов в книге
137×50×35 = 239750
2. Информационный объем книги составляет
239750×1 = 239750 байт
В 1Кб= 1024 байта
3. 239750×1024=245504000 КБ
Ответ : 245504000 кб
N=32 ;
N = 2 (в степени i) ;
i = 5 ;
iс= i * K
iс = 5 * 256 = 1280 бит :8 = 160 байт (кол-во информации на 1 носителе);
iс= 256 * 512 * 5=655 360 бит :8 = 81 920 байт :1024 = 80 Кбайт
Ответ:
var a:array [1..14] of real;
i:integer;
s:real;
begin
s:=0;
write('Массив: ');
for i:=1 to 14 do
begin
a[i]:=random()+random(3);
write(a[i]:0:3,' ');
s:=s+a[i]
end;
writeln;
write('Сумма чисел равна ',s:0:3)
end.