Ребят сделайте пожалуйста с помощью программы Паскаль задания номер 7.и задание номер 5. Завтра сдавать д.з а у меня программа не работает(( решите и пришлите решение задач!..Даю хорошие баллы за это задание.Всем большое спасибо!

1

Ответы и объяснения

Лучший Ответ!
2014-03-19T22:18:29+04:00
Задача 7
var
a, b, c: integer;
begin
readln(a, b, c);
if ((a+b)<=c) or ((a+c)<=b) or ((b+c)<=a) then begin write('Не существует'); exit; end;
if (a=b) and (b=c) then begin write('Равносторонний'); exit; end;
if (a=b) or (b=c) or (a=c) then begin write('Равнобедренный'); exit; end;
write('Разносторонний');
end.

Задача 5
var
s: string;
begin
readln(s);
if (s[1]=s[2]) or (s[2]=s[3]) or (s[1]=s[3]) then write('Да') else write('Нет');
end.

Если возникли вопросы или ошибки во время выполнения программы, пиши в комментариях.
Большое спасибо!Теперь есть с чем идти в школу!!!!)))