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.
Var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.
ЭКРАННЫЕ ОБЪЕКТЫ - это текстовые или графические элементы, позволяющие
пользователю в понятном ему виде ввести данные или команды и получить обратно результат. Основными экранными
объектами являются: область, окно, панель, индикатор, курсор, поле
ввода, корзина.
1) 23
2) 44
3) 2С7
4) 10100101
5) 3914
6) 1AA
7) 1001010100
8) 566
9) 4С
10) 177
11)4848
12) 1001001101
Вот точки в десятичной системе: (4,7),(6,11),(10,11),(12,7),(12,4),(13,3),(12,2),(12,3),(11,6),(8,3),(8,1),(6,1),(6,3),(4,3),(4,1),(2,1),(2,5)
Получилось что-то такое.