// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a,b,c:integer; // цифры числа n = abc var (i,j,k):=(1,2,3); // места цифр a,b,c, расположенных по неубыванию var s1:array[1..3] of string:=('первая','вторая','третья'); var s2:array[1..3] of string:=('первой','второй','третьей'); a:=n div 100; b:=(n div 10) mod 10; c:=n mod 10; // сортировка по неубыванию if a>b then begin Swap(a,b); Swap(i,j) end; if b>c then begin Swap(b,c); Swap(j,k); if a>b then begin Swap(a,b); Swap(i,j) end end; if c>b then Writeln(s1[k],' цифра больше остальных') else if b>a then Writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i]) else Writeln('Все три цифры одинаковы') end.
Program z1; var a,b:real; f:longint; begin writeln('Ââåäèòå Г¬Г*Г±Г±Гі Гў ГЄГЈ:'); read(a); writeln('Ââåäèòå åäèГ*èöó âûâîäГ*:'); writeln('1 - ìèëëèãðГ*ìì'); writeln('2 - ГЈГ°Г*ìì'); writeln('3 - êèëîãðГ*ìì'); writeln('4 - öåГ*ГІГ*ГҐГ°'); writeln('5 - ГІГ®Г*Г*Г*'); read(f); if (f<1) or (f>6) then begin writeln('Ïîâòîðèòå ââîä'); read(f); end; if f=1 then begin b:=a*1000000; write(a,' ГЄГЈ=',' ',b,' ','ìèëëèãðГ*ìì'); end; if f=2 then begin b:=a*1000; write(a,' ГЄГЈ=',' ',b,' ','ГЈГ°Г*ìì'); end; if f=3 then begin b:=a; write(a,' ГЄГЈ =',' ',b,' ','êèëîãðГ*ìì'); end; if f=4 then begin b:=a/100; write(a,' ГЄГЈ=',' ',b,' ','öåГ*òðîâ'); end; if f=5 then begin b:=a/1000; write(a,' ГЄГЈ=',' ',b,' ','ГІГ®Г*Г*'); end; writeln('ÏðîãðГ*ììГ* Г§Г*âåðøåГ*Г*'); end.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a,b,c:integer; // цифры числа n = abc
var (i,j,k):=(1,2,3); // места цифр a,b,c, расположенных по неубыванию
var s1:array[1..3] of string:=('первая','вторая','третья');
var s2:array[1..3] of string:=('первой','второй','третьей');
a:=n div 100;
b:=(n div 10) mod 10;
c:=n mod 10;
// сортировка по неубыванию
if a>b then begin Swap(a,b); Swap(i,j) end;
if b>c then begin
Swap(b,c); Swap(j,k);
if a>b then begin Swap(a,b); Swap(i,j) end
end;
if c>b then Writeln(s1[k],' цифра больше остальных')
else
if b>a then Writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i])
else Writeln('Все три цифры одинаковы')
end.
Примеры
n= 638
третья цифра больше остальных
n= 583
вторая цифра больше остальных
n= 707
первая и третья цифры больше второй
n= 444
Все три цифры одинаковы