<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x,y,z):=ReadReal3('Введите через пробел три числа:');
if (x+y>z) and (x+z>y) and (y+z>x) then Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
<u>Примеры</u>
Введите через пробел три числа: 2.34 5.18 9
Треугольник не существует
Введите через пробел три числа: 3 4 5
Треугольник существует
//Pascal ABC.NET v3.1 сборка 1172
Var
n,r:integer;
begin
readln(n);
n:=(n div 10)*(n mod 10);
writeln(n);
end.
Пример ввода:
32
Пример вывода:
6
Я тебе даю формулы ты уже выбирай сам какую
Ответ единица. :)
Пояснения или решение нужны?
1. D:\HOME\HELP\readme.txt
3. family.jpg, car.bmp, dog.gif