var a: 10..99;
begin
readln(a);
writeln(a+(a mod 10)+(a div 10));
end.
Какая бы не была прекрасная и чёткая система автоматизирования - она может ошибаться. Да, в нынешнем мире она делает это всё реже и реже, но, всё же, она ошибается. Человек должен её контролировать, обезопасить, в первую очередь, себя и себе подобных от её неправильных действий, которые могут навредить. В конце концов эту систему создал человек, а человек, как мы знаем, тоже ошибается и никогда не сотворит идеал (хотя, кто знает). Значит его детище - автоматизированная система управления в данном случае - тоже не может быть идеальной и может ошибаться. Поэтому, конечно, её нужно контролировать.
Таков мой ответ. Он очень субъективен, соглашаться с ним или нет - решать Вам :)
Код ниже (также можете свериться со скриншотами):
№1:
var x,y: real;
begin
write('x = ');
read(x);
if (x < 5) then
begin
y:= sqrt(x+25);
end;
if (x = 5) then
begin
y:= 500;
end;
if (x > 5) then
begin
y:= (x/4);
end;
writeln('y = ',y:2:2);
end.
№2:
var x,y: real;
begin
write('x = ');
read(x);
if (x < -1) then
begin
y:= x+2;
end;
if ((x >= -1) and (x < 5)) then
begin
y:= sqr(x+2);
end;
writeln('y = ',y:0:0);
end.
Program n1;
Uses CRT;
Var x,a,b: integer;
begin
ClrScr;
writeln('Vvedite x');
readln(x);
a:=x div 10;
b:=x mod 10;
Writeln(x,'+',a,'+',b,'=',x+a+b);
readln
end.