Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.
Чаще всего параллельные порты LPT используются для подключения к компьютеру печатающих устройств (принтеры).
Параллельные порты получили свое название благодаря методу передачи данных, т.к. они имеют восемь разрядов шины данных и способны передавать информацию байтами синхронно по восьми проводникам.
Сигналы данных могут дополнительно обеспечиваться собственными сигнальными линиями заземления — по одному на каждый канал данных. В таком случае, число сигналов возрастает до 25. Для соединения компьютера с устройством при помощи параллельного интерфейса используется 25-ти контактный разъем Centronics.
Параллельные интерфейсы имеют высокую скорость передачи данных (до 150 К/сек) и низкую помехоустойчивость, что позволяет использовать кабель длинною не более трех метров.
Var a, b, i, c :integer;
begin
<span> read (a, b); </span>// вводим a и b
for i:=1 to 5 do
begin
<span> c:=random(b-a)+a; </span>// присваиваем рандомные числа в заданномпромежутке
<span> writeln (c); </span>// выводим число
end;
<span>end.</span>
Const N=20;
var a:array[1...N] of integer;
s,i:integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
s:=0;
for i:=1 to N do begin
if a>0 then begin
s:=s+a;
write (i);
end;
end;
write (s);
end.