Ввод теста.
Редактирование текста.
Форматирование текста.
<span>Печать документа.</span>
var
a, b: real;
begin
writeln('введите длину');
readln(a);
writeln('введите ширину');
readln(b);
writeln('периметр прямоугольника ', 2 * (a + b));
end.
Var a,i,b:integer;
s:real;
begin
a:=0;
for i:=1 to 10 do begin
b:=random(20)+1;
a+=b;
write(b,' ');
end;
writeln;
s:=a/10;
writeln(s);
<span>end.</span>
Сходи в книжный магазин или в несколько.. И тадааам
31=11111; 3=11; 5=101; 9 =1001; 17 =<span>10001; 32=<span>100000 64=<span>1000000 128=10000000</span></span></span>