Uses Crt;
const
n=30;
type
tA=array[1..n] of integer;
tS=array[1..n] of string[30];
var
i:integer;
p,c:tA;
s:tS;
begin
ClrScr;
for i:=1 to n do begin
Write('Марка автомобиля ',i,': ');
Readln(s[i]);
Write('его мощность (л.с.) и стоимость (руб.); ');
Readln(p[i],c[i])
end;
Writeln;
Writeln('Автомобили мощностью не более 80 л.с.');
for i:=1 to n do
if p[i]<=80 then Writeln(s[i]:30,p[i]:10,c[i]:10);
ReadKey;
end.
Статья содержит 8 стр, на каждой странице 32 строки, в каждой строке 32 символа⇒ умнажаем это всё друг на друга
8*32*32= 8192 это всего символов
8192*16= 131072 = 128
Const z = 2.3;var s,d,f,j: real;i:integer;beginj:=0.2;while j < 2.9 dobegins := 1.5*cos(j)*cos(j);writeln(j:4:2 ,s :9:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := 1.8*z*j;writeln(j:4:2 ,s :12:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := (j-2)*(j-2)+6;writeln(j:4:2 ,s :9:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := 3 * sin(j)/cos(j);writeln(j:4:2 ,s :12:6);j:= j +0.2;end; <span>end.</span>
В Dec будет:
3329
3987
394
а в Bin:
0011 0010 0010 1001
0011 1001 1000 0111
0011 1001 0100