Вырыть яму- удобрить почву- поставить дерево- закопать- укрепить- полить
Var
a,b,c:real;
begin
Write('Введите через пробел длины трех сторон: ');
Readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
Writeln('Можно составить треугольник')
else
Writeln('Нельзя составить треугольник')
end.
Тестовое решение:
Введите через пробел длины трех сторон: 2 6 9
Нельзя составить треугольник
Введите через пробел длины трех сторон: 3 4 5
Можно составить треугольник
Var n,h,m,s:integer;
begin
write('n = ');
readln(n);
h:=n div (60*60);
m:=n mod (60*60) div 60;
s:=n mod 60;
write(h,':');
if m<10 then write(0);
write(m,':');
if s<10 then write(0);
writeln(s);
end.
Пример 1:
n = 86399
23:59:59
Пример 2:
n = 18125
5:02:05
program n1;
var x,y:real;
begin
writeln('Введите x');
read(x);
if x>=2 then y:=2*x+3 else
y:=(x+1)/(x-2);
writeln('Значение функции равно ',y);
end.