Var
x,y:real;
begin
readln(x);
if x<-3 then y:=-2*x+15;
if (x>-3) and (x<2) then y:=2*cos(x)*sin(x);
if x>2 then y:=log10(x+4);
writeln(y);
end.
419 1319 2014 1811 1212 205 322 294 55
Результатом работы автомата могут быть числа 419 (исходное число — 4775), 1212 (исходное число — 6765), 322 (исходное число — 3886).
Числа 1616(888) 169(881) и 116(833)
Ответ: 3 числа
Var
a,b:integer;
begin
write('Введите первое число - ');
readln(a);
write('Введите второе число - ');
readln(b);
writeln(a,'+',b,'=',a+b);
writeln(a,'-',b,'=',a-b);
writeln(a,'/',b,'=',a/b);
writeln(a,'*',b,'=',a*b);
<span>end.</span>
A - сумма цифр
B - минимальная из цифр
получается минимальное число, сумма цифр которого 13, а мин. цифра - 5.
Это 58.