Program test ;
Var
N, num:integer;
Begin
Readln(N) ;
Num:=(2*1) +(2*2) +(2*N) ;
Writeln(num) ;
end.
114412 из двенадцатиричной в двоичную <span>1000011101001001110 </span>
Var a,b,c:real;
begin
writeln('введите значения трех углов:');
readln(a,b,c);
if (a+b+c)<>180 then writeln('введены некорректные данные')else
if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else
if (a=b)and(b=c) then writeln('равносторонний')else
if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else
writeln('разносторонний')
end.
Начало-пойти в кино-если есть билет-купить-если нет-уйти-конец