Объясните в чем суть задания
Принцип работы лазерного принтера Принцип работы всехлазерных принтеров довольно похож на работу копировальных аппаратов. Изначально на бумаге создается намагниченная область, к которой после притягивается тонер (печатный порошок). Затем, лист бумаги попадает в так называемую печь, где порошок подлежит ПЛАВЛЕНИЮ.КРАТКО СЛОЖНО, ЕСЛИ ЧТО МОЖНО ПРОСТО ВЫБРАТЬ САМОЕ ВАЖНОЕ, А НЕ ПИСАТЬ ВСЕ
Первая:
var
x,y:integer;
begin
writeln('Vvedite x');
readln(x);
if x>0 then
y:=sqr(x)
else
y:=x+1;
writeln(y);
end.
Вторая
var
x:integer;
y:real;
begin
writeln('vvedite x');
readln(x);
if (x<0) and (x>=-1) then
y:=12.5*2
else
if x<-1 then
y:=x-1
else
y:=12*x;
writeln(y);
end.
Вроде вывод и ввод получается спирт
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(10,10,99); a.Println;
a.Reverse.Println
end.
<u><em>Тестовое решение:</em></u>
39 29 38 59 16 60 41 73 76 52
52 76 73 41 60 16 59 38 29 39