Нужно именно в виде блок много

Question

Информатика: Нужно именно в виде блок много

germannesta · Accepted Answer

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;

writeln ('число с наибольшим произведением цифр: ' + sn);

end;