R(sqr(c)+c, d) - по тому что ты в начале указал что счетчик процедуры будет интеджером, а если вывести из коренья то может получится и дробное число...
Program _1;
var x, y: real;
begin
write('Введите значение Х')
readln(x);
y:=x*x*x+sqr(x)*2.5- x +1;
write('Значение у = ', y);
<span>end.</span>
Короткое решение:) Можно было бы, конечно, и без числа, но лучше будет, если интерпретатор сам распорядится ошибочным вводом =)
var a: integer;
b: string;
begin
readln(a);
b := inttostr(a);
writeln(length(b));
<span>end.
</span>
использовать Робот
алг
нач
нц пока сверху свободно; вверх кц
нц пока сверху стена; влево кц
вправо
нц пока сверху стена
закрасить
нц пока снизу свободно
вниз
закрасить
кц
нц пока сверху свободно
вверх
кц
вправо
кц
кон
Объяснение:
^ не ставится, но действие выполняется, у себя его ставьте!