Ответ:
Должна быть не маленькая англ. буква l, а большая англ. буква I
Объяснение:
Было - 6,8, при перемещении стало - 6. Ответ: 3 (0,8)
<span>var a,b,c,min,max:integer;
begin
readln(a,b,c);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a; end;
if c>max then max:=c;
if c<min then min:=c;
writeln(max+min);
end<span>.
Пример:
3 8 5
11</span></span>
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
var
a:integer;
begin
read(a);
writeln('Произведение десятков: ',(a mod 10)*(a div 10 mod 10)*(a div 100)*1000);
writeln('Произведение единиц: ',(a mod 10)*(a div 10 mod 10)*(a div 100));
readln;
readln;
end.
Пример:
123
Произведение десятков: 6000
Произведение единиц: 6