Регистрация
Anonimka89
18.06.2023 19:23
Информатика
Есть ответ 👍

Паскаль, базовые задачи на строки

186
434
Посмотреть ответы 1

Ответы на вопрос:

Кличяня
Кличяня
4,6(44 оценок)
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. если надо объединить в одну - пиши.

Популярно: Информатика