<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y,z):=ReadInteger3;
Min(x*y*z,x+y+z).Println
end.
//1a
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
end;
end.
//1б
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if x1+x2+sqr(x1+x2)=i then writeln(i);
end;
end.
//2
Var
i,n,a,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<1985 then k1:=k1+1;
if a>1990 then k2:=k2+1;
end;
writeln('Родившиеся до 1985:',k1);
writeln('Родившиеся после 1990:',k2);
end.
Program Kwan78;
var a: real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
write('Введите длину стороны квадрата ');
readln(a);
writeln('Площадь квадрата равна ',a*a);
end.
Функции:
<u><em>trunc</em></u> - возвращает целую часть вещественного числа.
<u><em>round</em></u> - возвращает число, округленное до ближайшего целого. Если вещественное находится посередине между двумя целыми,то округление осуществляется к ближайшему четному (банковское округление).
<em><u>div</u></em> - результат целочисленного деления, точнее округленное до ближайшего целого по направлению к 0.
<em><u>mod</u></em> - остаток от целочисленного деления.
Решение:
trunc(6,9) = 6
trunc(6,2) = 6
round(6,9) = 7
20 div 6 = 3
20 mod 6 = 2
2 div 5 = 0
2 mod 5 = 2
Полный текст программы:
var a: array[1..50] of Integer;
i,x,imax,j,n: Integer;
begin
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
end.