//Pascal ABC.NET v3.1 сборка 1172
Var
a:real;
begin
readln(a);
if a>0 then writeln('Положительное, ',a/2) else
if a<0 then writeln('Отрицательное, ',sqr(a)) else
writeln('0');
end.
Пример ввода:
-12
Пример вывода:
-, 144
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadInteger2('Введите два числа');
if a>b then Swap(a,b);
Range(a,b).Select(x->x*x).Println
end.
<u>Пример</u>
Введите два числа 29 6
36 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841
Var s,t:string;
begin
s:='ИНФОРМАТИКА';
t:=copy(s,3,5);
writeln(t)
<span>end.</span>
Компьютер - устройство или система, способная выполнять, чётко определённую, изменяемую последовательность операции. Электронно - вычислительная машина
Работает благодаря процессору, системному блоку, клавиатуре, мышке...