Program z10; Var m,n:integer;Begin writeln('Задание 1: '); write('Введите двухзначное число m - '); readln(m); n:= m div 10 * 100 + 10 + m mod 10; writeln('N = ', n); writeln; writeln('Задание 2: '); write('Введите трехзначное число n - '); readln(n); m:= n div 100 * 100 + n mod 10; writeln('M = ', m); writeln; writeln('Задание 3: '); write('Введите трехзначное число n - '); readln(n); m:= n div 100 * 10 + n div 10 mod 10 * 100 + n mod 10; writeln('M = ', m); writeln; End.
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.
