var
a, b, n, i, j, t: integer;
s, sn: string;
begin
write ('введите начало отрезка: ');
readln (a);
write ('введите окончание отрезка: ');
readln (b);
n : = 0;
for i : = a to b do begin
s : = inttostr (i);
t : = 1;
for j : = 1 to length (s) do
t : = t * strtoint (s[j]);
if t > n then begin
sn : = s;
n : = t;
end;
end;
writeln ('число с наибольшим произведением цифр: ' + sn);
end;
uses Crt;
var
i,n:integer;
x,xp,y:real;
begin
ClrScr;
Write('n='); Read(n);
Write('x='); Read(x);
xp:=1; y:=0;
for i:=1 to n do begin xp:=xp*x; y:=y+sin(xp) end;
Writeln('y=',y);
ReadKey
end.
Тестовое решение:
n=8
x=1.535
y= 2.2418218291E+00