Cls
Input x
Y=(2*x+3)^2*(x-5)
Print y
Для того щоб робити точні виміри і полегшити своє життя
Var a0, a1, a2, a3, a: longint;
Begin
readln(a3, a2, a1, a0);
a:=a3*1000+a2*100+a1*10+a0;
write(a)
End.
Пример:
1 5 9 8
1598
Значение 3 показывает, что число трехзначное.
Чтобы записать тремя цифрами a, b, c минимальное число, надо расставить их по возрастанию.
Положим a=1 (меньше не бывает), тогда b+c=17-1 или b+c=16.
16 = 8+8 = 7+9.
Искомое число 179.
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.