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.
//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c=180 then writeln('Possible') else writeln('Unpossible');
end.
Пример ввода:
100
40
40
Пример вывода:
Possible
Я точно не помню как делать но там есть медведь лиса олень ежик белка
медведь на переднем плане в кустах с ним есть еще лиса и белка она на ветке сидит олень на заднем плане
я думаю действия 1 взять карандаш 2 найти на картинке зверья 3 раскрасить его
Const
K = 13;
Var
A:array[1..K] of integer;
i,j:integer;
Begin
{Заполнение массива}
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
{Сортировка пузырьком}
For i:= 1 to K do
For j:= 1 to K-1 do
if A[j]>A[j+1] then Swap(A[j],A[j+1]);
{Вывод массива}
Write('Отсортированный массив: ');
For i:= 1 to K do
Write(A[i],' ')
End.