<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s1:='конституция';
var s2:='указ';
Writeln(s2[4:2:-1]+s1[1:4])
end.
Матричный принтер :
Такие принтеры считаются устаревшими,но иногда они тоже востребованы.Графические возможности таких принтеров ограничены. На таком принтере набор иголок(матрица) создаёт изображение,нанося в нужный момент удары по бумаге через красящую ленту.Качество изображения здесь зависит от иголок.
Струйный принтер :
Такие принтеры можно считать самыми популярными.Они позволяют получать цветные текстовые и графические изображения высокого качества.Также они иммеют приемлемую цену.При печати на таких принтерах маленькие капли красителя выпрыскиваются на бумагу.Чернила подаются непрерывной струёй , откуда и название этих принтеров.
Лазерные принтеры :
Для получения изображения используются лазерные лучи.Эти принтеры обладают большей скоростью печати и могут работать без перерыва длительное время.Но эти принтеры стоят дороже .Скорость этих принтеров измеряется количеством страниц напечатанных в минуту.
Надеюсь эта информация вам поможет))))
Семейство ОС Windows - серверные(Windows Server 2003,2008,2012, 2016) и клиентские (Windows 7, 8, 8.1, 10 )
Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>=b)and(b>=c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.
Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>
