Pascal ABC В трёхзначном числе x зачеркнули его вторую цифру. Когда к образованному при этом двузначному числу справа приписали...

[maksim97maksim]

В трёхзначном числе x зачеркнули его вторую цифру. Когда к образованному при этом двузначному числу справа приписали вторую цифру числа x, то получилось 456. Найти число x.

Большая просьба сделать на Pascal ABC.

[Serge_Bliznykov]

Так устроит?

var x : integer;
begin
  x := 465;
  WriteLn(x);
end.

[maksim97maksim]

Сообщение от Serge_Bliznykov

Так устроит?

var x : integer;
begin
  x := 465;
  WriteLn(x);
end.

не, ну это уж слишком легко) не такое оно )

[Poma][a]

 
  for i:=1 to Length(S)-1 do
    for j:=i+1 to Length(S) do
      if S[i]<S[j] then
        begin
          ch := S[i];  S[i] := S[j];  S[j]:= ch
        end;

  WriteLn(465);

Уже лучше?

[maksim97maksim]

Сообщение от Poma][a

 
  for i:=1 to Length(S)-1 do
    for j:=i+1 to Length(S) do
      if S[i]<S[j] then
        begin
          ch := S[i];  S[i] := S[j];  S[j]:= ch
        end;

  WriteLn(465);

Уже лучше?

Ага, а вывод то WriteLn(465); всё равно такой же )

[Stilet]

всё равно такой же )

Ну так замени его на вывод переменной S

[ZX Spectrum-128]

Как "зачеркнуть" 2-ю цифру трехзначного числа и получить 2-значное число?

Y:=(x div 100)*10+x mod 10;

Вот примерно так и решается задача.

[maksim97maksim]

Сообщение от ZX Spectrum-128

Как "зачеркнуть" 2-ю цифру трехзначного числа и получить 2-значное число?

Y:=(x div 100)*10+x mod 10;

Вот примерно так и решается задача.

В том то и дело, что я не понимаю. Вот и прошу что бы написали полностью.(Просто срочно нужно.

[ZX Spectrum-128]

For i:=100 to 999 do
  Begin
      Y:=(i div 100)*10+i mod 10; // двузначное число
      Y:=(y div 10)*100+(y mod 10)*10+(i mod 10) div 10; // приписали
      If i=456 then
         Begin
            Writeln('Искомое число = ',y);
             Break;
         End;
  End;

Не ржать! У меня была такая ситуация. Девочка сдала только с третьего раза и именно в таком виде.
Если это тот же вуз и тот же препод, то ну его.
Лучше перебздеть, чем недобздеть.

Кстати, это был второй вариант. Break преподу тоже не подошел.

[Serge_Bliznykov]

не, ну это не серьёзно!
Зачем перебор там, где он НЕ НУЖЕН!

Вы же начали решать нормально...

var x : integer;
begin
  WriteLn('Введите полученное 3-х значное число: ');
  Readln(x);
  
  x := (x div 100)*100 + (x mod 10)*10 + ((x div 10) mod 10);
  WriteLn('Исходное число было:', x);
end.