Форум: "Потрепаться";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизДо чего же наглые!!! Найти похожие ветки
← →
VEG (2001-12-07 16:36) [9]Задача:
3.Числа (Время на тест 1с, 31 балл)
Написать программу, которая для заданного натурального числа N находит наименьшее из больших чисел, составленных из тех же цифр. Если такого числа не существует, выдать ответ NO. Ограничение: N<=2000000000
Формат ввода-вывода: С клавиатуры вводится число На экран выводится единственное число или слово NO.
Пример ввода Пример вывода
12345 12354
5443 NO
Мое решение:
{Vrub1evski, School #2, 8”A” class}
Program N02_3;
var
Tec, TecEx, FTD, ReFTD: Integer;
IntTmp, IntEx, IntIn:integer;
n, nEx: string [255];
st:String[1];
Answer: Boolean;
begin
Answer:=False;
Write("Eriter N: "); readLn(n);
For ReFTD:=Length(n) downto 1 do
begin
val(n[ReFTD] ,Tec,intTmp);
For FTD:=Length(n) downto 1 do
begin
val(n[FTD] ,TecEx,intTmp);
If (TecEx<Tec)and(ReFTD>FTD) then
begin
nEx:=n;
Str (TecEx,st);
nEx[ReFTD]:=st[1];
Str (Tec,st);
nEx[FTD]:=st[1];
Answer:= true;
end;
If Answer=True then break;
end;
end;
val (nEx, IntEx, IntTmp);
val(n,IntIn,IntTmp);
If IntEx>IntIn then WriteLn("Answer: ",IntEx) else WriteLn("NO");
ReadLn(ST);
end.
А у некоторых:
Program N11_3;
var
Put,OutPut:Integer;
begin
Case Put of
1:OutPut:=0;
2:OutPut:=0;
3:OutPut:=0;
4:OutPut:=0;
5:OutPut:=0;
6:OutPut:=0;
7:OutPut:=0;
8:OutPut:=0;
9:OutPut:=0;
10:OutPut:=0;
11:OutPut:=0;
12:OutPut:=21;
13:OutPut:=31;
14:OutPut:=41;
15:OutPut:=51;
{и т.д. (Очень длинный список)}
end;
If OutPut<>0 then WriteLn(OutPut) else WriteLn ("NO");
end.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c