возьми двойной лист в клетку и рисуй по клеткам это же не трудно точно так же красишь и готово
Const n=3;
type lec=record
name:string;
cost:integer;
end;
var a:array [1..n] of lec;
max1:integer;
m,k,p,i:byte;
begin
for i:=1 to n do
with a[i] do begin
writeln ('Введи наименование товара');
readln (name);
writeln ('введи стоимость товара');
readln (cost);
end;
max1:=-1;
for i:=1 to n do
if a[i].cost>max1 then begin max1:=a[i].cost;
p:=i;
end;
while k<>1 do begin
for i:=1 to n do
if (i<>p) and (a[i].cost=max1) then begin m:=i;
k:=1;
end;
max1:=max1-1;
end;
writeln (a[p].name,' ',a[p].cost);
write (a[m].name,' ',a[m].cost);
readln;
end.
Ответ:
Найдем объем всего сообщения в битах:
1/512 Мб=1024/512 Кб=2 Кб=2*1024 байт=2048 байт=2048*8 бит
Найдем сколько занимает один символ для этого поделим кол-во битов в сообщении на кол-во символов:
(2048*8)/2048=8 бит i=8
найдем мощность алфавита N
N=2 в стапени i
N=256
Ответ: N=256
№2
Найдем сколько занимает один знак:
N=2 в степени i
256=2 в степени i
i=8 бит
Найдем сколько займут введенные символы:
8*100=800 бит=800/8 байт=100 байт
Ответ: 100 байт
№3
Найдем сколько занимает один символ:
N=2 в степени i
65536=2 в степени i
i=16 бит=2 байта
Найдем кол-во символов:
4стр*5мин=20стр
20стр*40строк=800строк
800строк*50 симв=40000симв
Все символы занимают:
40000*2 байта=80000байт
Ответ: 80000байт
Объяснение:
А)program m;var s,i:integer;begins:= 0;i:=0;for i := 0 to 5 dos := s + 1;writeln(s,',',i);end.
Ответ: s = 6,i = 5
б)program m;var s,n,i:integer;begins:= 1;n:=1;for i := 2 to n dos := s + 1;writeln(s,',',i,',',n);end.
Ответ: s = 1, i= 2 , n = 1