Uses crt; var a,b,c: Integer; Begin Write('Введите три угла: '); Readln(a, b, c); If (a+b+c)=180 then Writeln('Это треугольник') Else Writeln('Это не треугольник'); End.
Вторая: uses crt; var a,b,c: Integer; Begin Write('Введите три угла: '); Read(a,b,c); If (a=b) or (a=c) or (b=c) then Writeln('Треугольник равнобедренный'); End.
Третья: uses crt; var a,b,c: Integer; d,e,f: Real; Begin Write('Введите три угла: '); Readln(a,b,c); If (a=90) or (b=90) or (c=90) then Write('Введите два катета: '); Readln(d,e); f:=(d+e)/2; Writeln('Площадь треугольника: ', f, '.'); End.
Program z6; Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin g:=a[i]; g[1]:= (Upcase(g[1])); s_2:= s_2 + g + ' '; i:= i + 1; g:=''; end; writeln(s_2);End.
var a,b,c: Integer;
Begin
Write('Введите три угла: ');
Readln(a, b, c);
If (a+b+c)=180 then
Writeln('Это треугольник')
Else Writeln('Это не треугольник');
End.
Вторая:
uses crt;
var a,b,c: Integer;
Begin
Write('Введите три угла: ');
Read(a,b,c);
If (a=b) or (a=c) or (b=c) then
Writeln('Треугольник равнобедренный');
End.
Третья:
uses crt;
var a,b,c: Integer;
d,e,f: Real;
Begin
Write('Введите три угла: ');
Readln(a,b,c);
If (a=90) or (b=90) or (c=90) then
Write('Введите два катета: ');
Readln(d,e);
f:=(d+e)/2;
Writeln('Площадь треугольника: ', f, '.');
End.
Если надо объединить в одну - пиши.