===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>1. Современное решение</u>
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
<u>Пример</u>
15.8 4.9 13
249.64 24.01 169
<u>2. А так, увы, все еще учат писать во многих школах...</u>
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.
Мы имеем дело с 4 разрядным числом в 5ричной системе счисления
А=0, К=1, Л=2, О=3, Ш=4 судя по порядку
Первое слово на О будет иметь вид ОААА = 3000_5 = 3*5^3 = 375_10
Поскольку номерация начинается с нулевого слова, то номер <span>ОААА будет 376</span>
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=MatrRandom(7,7,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Сумма по первой строке: ',a.Row(0).Sum)
end.
Program _1;
Var
x,fx:integer;
begin
writeln('Введите значение X');
readln(x);
if (x>0) then
begin
fx:=x;
end;
if (x=0) then
beginfx:=0;
end;
if (x<0) then
begin
fx:=-sqr(x);
end;
writeln('F(x): ',fx);
end.
