<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(-10,10).Foreach(i->Println(i,Abs(i)))
end.
<u>Результат</u>
-10 10
-9 9
-8 8
-7 7
-6 6
-5 5
-4 4
-3 3
-2 2
-1 1
0 0
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9
10 10
Var n:longint;
Begin
Read(n);
Write(n*n,' ',n*n*n,' ',sqr(n)*sqr(n)*n*n);
End.
var a,i,k,sum:integer;
begin
read(a);
for i:=1 to a do begin
read(k);
if(k mod 3 =0)and(k<150)then sum:=sum+k;
end;
write(sum);
end.
//Получилось странное, но вроде бы жизнеспособное
//Pascal ABC.NET 3.1 сборка 1219
Var
arr,arc:array of integer;
k,n,i:integer;
begin
readln(n);
setlength(arc,n+1);
readln(k);
setlength(arr,k);
for i:=1 to n do
begin
readln(arc[i]);
inc(arr[arc[i] mod k]);
end;
for i:=0 to k-1 do
if arr[i]=0 then
begin
writeln('No');
exit;
end;
writeln('Yes');
end.
Program Zilly;
uses crt;
const n=10;
var
a,b,c:real;
tup,pryam:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
tup:=0;
pryam:=0;
writeln('Введите стороны треугольника');
write('А = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
a:=a*a;
b:=b*b;
c:=c*c;
if a=b+c then pryam:=1;
if b=a+c then pryam:=1;
if c=a+b then pryam:=1;
if a>b+c then tup:=1;
if b>a+c then tup:=1;
if c>a+b then tup:=1;
if tup=1 then writeln('Треугольник тупоугольный')
else
if pryam=1 then writeln('Треугольник прямоугольный')
else writeln('Треугольник остроугольный');
end.