Program gt;
var a,b,c,max:real;
begin
readln(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
writeln(max);
end.
В а - количество цифр в числе
в b - произведение цифр
то есть число x - трехзначное и произведение его цифр=0,
990 - максимальное из трёхзначных, произведение цифр которых=0
ответ 990
<span>Решение данной задачи прикреплено ниже.
zd15 - решение первой задачи.
zd16 - решение второй задачи.</span>
Программа выводит максимальную цифру числа:
Program maxx;
uses crt;
var x,max:integer;
begin
write('введите число x=');readln(x);
max:=0;
while x>0 do
begin
if max<(x mod 10) then max:=(x mod 10);
x:=x div 10
end;
writeln('max=',max);
<span>end.</span>