Смотрите код во вложении.
Программа выводит максимальную цифру числа:
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>
Ответ:MS PowerPoint, Mozilla Firefox, Grins, notepad++, inkscape,
Объяснение:
<span>=А1+А2 (арифмитическое сложение)</span>