Var a,b,c:real;
begin
repeat
write('Введите длины сторон треугольника a,b,c ');
readln(a,b,c);
until (a>0) and (b>0) and (c>0);
if (a=b) and (b=c) then writeln ('Равносторонний')
else writeln('Не равносторонний или такой треугольник не существует');
end.
Тест №1
Введите длины сторон треугольника a,b,c 5 5 -5
Введите длины сторон треугольника a,b,c 5 5 5
Равносторонний
Тест №2
Введите длины сторон треугольника a,b,c 5 6 5
Не равносторонний или такой треугольник не существует
56420 Ответ вот такой... Это и есть всё число!)
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrReal(8);
Writeln('Введен массив'); b.Println
end.
<u>Пример</u>
-3.2 0 12 -7 0.003 12.43 3.141593 11
Введен массив
-3.2 0 12 -7 0.003 12.43 3.141593 11
Эмн, счеты, калькулятор, ЭВМ, арифмометр, логарифмическая линейка, таблицы...
Абак - <span> </span>счётная доска<span>, применявшаяся для </span>арифметических<span> </span>вычислений.