Program n1; Uses CRT; Var a,b,c,k: integer; begin Writeln('Vvedite a,b,c'); Readln(a,b,c); If (a=b)and(b=c) then begin k:=1; writeln('Ravnostoronnij') end else If (a=b)or(b=c)or(a=c) then begin k:=1; writeln('Ravnobedrennij'); end; If (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a)) then begin k:=1; writeln('Pryamoygolnij'); end; If (a>b+c)or(b>a+c)or(c>a+b) then begin k:=1; writeln('treygolnik nelza sostavit'); end; If k=0 then writeln('Treygolnik Raznostoronnij'); readln end.
Вторая
Program n1; Uses CRT; Var a,b,c: integer; begin ClrScr; Writeln('Vvedite a,b,c'); Readln(a,b,c); If (a>0)and(b>0)and(c>0) then writeln('Summa kvadratov=',sqr(a)+sqr(b)+sqr(b)); If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('Summa =',a+b+c,', Proizvedenie =',a*b*c); readln end.
Если основание системы счисления равно N, то для записи чисел в этой системе используются цифры от 0 до N-1, то есть наибольшая цифра равна N-1. Например для нашей родной десятичной системы N=10, используются 10 цифр 0 1 2 3 4 5 6 7 8 9, наибольшая из них 9. И наоборот, если наибольшая цифра в записи числа равна N-1, то минимально возможное основание системы счисления на единицу больше, то есть равно N.
Анализируем:
Число 1010: наибольшая цифра = 1, минимальное основание = 2
Число 7817: наибольшая цифра = 8, минимальное основание = 9
Первая
Program n1;
Uses CRT;
Var a,b,c,k: integer;
begin
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a=b)and(b=c) then begin k:=1; writeln('Ravnostoronnij') end else
If (a=b)or(b=c)or(a=c) then begin k:=1; writeln('Ravnobedrennij'); end;
If (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a))
then begin k:=1; writeln('Pryamoygolnij'); end;
If (a>b+c)or(b>a+c)or(c>a+b) then begin k:=1; writeln('treygolnik nelza sostavit'); end;
If k=0 then writeln('Treygolnik Raznostoronnij');
readln
end.
Вторая
Program n1;
Uses CRT;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a>0)and(b>0)and(c>0) then writeln('Summa kvadratov=',sqr(a)+sqr(b)+sqr(b));
If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('Summa =',a+b+c,', Proizvedenie =',a*b*c);
readln
end.
Если основание системы счисления равно N, то для записи чисел в этой системе используются цифры от 0 до N-1, то есть наибольшая цифра равна N-1. Например для нашей родной десятичной системы N=10, используются 10 цифр 0 1 2 3 4 5 6 7 8 9, наибольшая из них 9. И наоборот, если наибольшая цифра в записи числа равна N-1, то минимально возможное основание системы счисления на единицу больше, то есть равно N.
Анализируем:
Число 1010: наибольшая цифра = 1, минимальное основание = 2
Число 7817: наибольшая цифра = 8, минимальное основание = 9
Число 1023 - наибольшая цифра = 3, минимальное основание = 4
Число 6767 - наибольшая цифра = 7, минимальное основание = 8
1010 2
7817 9
1023 4
6767 8