SCREEN 12
CIRCLE (100, 100), 50, 15
DO WHILE C < 100
C = C + 1
IF C = 15 THEN C = 0
PAINT (100, 100), C, 15
LOOP<span>
</span>
Напиши вк я тебе ответ скину я ссылку с ответом тебе кинуть здесь не могу
1
7
6
2
5
3
4
Как-то так) Блин символов мало пишет...
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.