Данны размеры сторон тругольника ю Вывести на экран при помощи ...
Данны размеры сторон тругольника ю Вывести на экран при помощи function или procedure(на выбор) слово истинно если треугольник равнобедренный и ложно если треугольник не равнобедренный.
Есть ответ
18.12.2022
202
Ответ
var
a, b, c: real;
procedure Traingle(a, b, c: real); {Процедура с входными параметрами - размерами сторон}
begin
if (a = b) or (a = c) or (b = c) then writeln('Истинно') {Если хотя бы две из трех сторон равны, то треугольник равнобедренный}
else writeln('Ложно');
end;
begin
writeln('Введите стороны треугольника a, b, c');
readln(a, b, c);
Traingle(a, b, c);
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022