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;
Поделитесь своими знаниями, ответьте на вопрос:
Отметьте штриховкой на координатной плоскости область, в которой и только в которой данное логическое выражение имеет значе- ние true. если граница входит в область, то обозначать её сплошной линией, если нет, то – штриховой. а) (sqr(x)> 1)and(sqr(y)> =1) б) (sqr(x)+sqr(y)> 9)=(abs(y)+abs(x)< =2)
Области показаны на приложенных скриншотах.
В примере б) левое и правое неравенство (когда они истинные) дают не пересекающиеся области на плоскости. Левое неравенство- всё, что вне окружности радиусом 3, а правое- всё, что внутри ромба, целиком находящегося внутри вышеупомянутой окружности. Поэтому, всё выражение будет истинным, только если оба неравенства будут ложными (дадут результат false).