ПОМОГИТЕ ПОЖАЛУЙСТА :) даны 3 стороны треугольника записать программу которая выводит **...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА :) даны 3 стороны треугольника записать программу которая выводит на экран какой будет треугольник

Comments

вид

---

программа

---

с паскаля

---

Он имел ввиду, выводить вид треугольника или рисунок

---

вид

---

:)

---

ок,берусь)

Answer 1

Вся программа в файле)

---

Скачать вложение Текст (TXT)

Comments

writeln('Ðàâíîáåäðåííûé'
что тут

---

это у тебя так пропечаталось?

---

да

---

а ты с компа посмотри

---

вот вся программа , которую ты мне кинулvar a,b,c:integer;
begin
readln(a,b,c);
if (a=b) and (a=c) and(b=c) then
writeln('Ðàâíîñòîðîííèé')
else if (a=b) or (b=c) or (a=c) then
writeln('Ðàâíîáåäðåííûé')
else if (a<>b) and (a<>c) and(b<>c) then
writeln('Ðàçíîñòîðîííèé');
end.

---

var a,b,c:integer;
begin
readln(a,b,c);
if (a=b) and (a=c) and(b=c) then
writeln('равносторонний')
else if (a=b) or (b=c) or (a=c) then
writeln('равнобедренный')
else if (a<>b) and (a<>c) and(b<>c) then
writeln('разносторонний');
end.

---

оооох, чтож так кодировка шалит...

---

спасибо большое , даже огромное
:)

---

агась)