Для школьника, который только-только начал своё знакомство с информатикой.
<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
Треугольник существует
uses crt;
var i,s,a,b:integer;
begin
for i:=10 to 99 do
begin
a:=i div 10;
b:=i mod 10;
s:=a+b;
if s*s*s = sqr(i) then writeln(i);
end;
readln;
end.
Var naibolwee:int64;
i:integer;
A:array [1..4] of int64;
function max(a,b:int64):int64;
begin
if a>b then max:=a else max:=b;
end;
begin
for i:=1 to 4 do
read(A[i]);
for i:=1 to 3 do
naibolwee:=max(A[i],A[i+1]);
writeln(naibolwee);
<span>end.</span>
Вот совершенная дизъюнктивная нормальная форма