урок 11 задача 13

Primary tabs

Submitted by nglag on Thu, 07/15/2021 - 18:50

Forums:

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим: 46541. (используйте опеции div и mod ).

урок 11 задача 13

Решение

program U11z13;

var i: integer;

begin    //46541
  i:= 10 div 10;
      write(i);
  i:= 16 div 4;
      write(i);
  i:= 15 mod 10;
      write(i);
  i:= 15 mod 9;
      write(i);
  i:= 20 div 5;
      write(i);
           //14564

  readln();

end.
  • Log in to post comments
  • 2671 reads
vedro-compota's picture

vedro-compota

Thu, 07/15/2021 - 19:48

решить с помощью цикла

_____________
матфак вгу и остальная классика =)

nglag

Sat, 07/17/2021 - 14:53 

program u11z13;

var a: integer;

begin
    writeln('Vvedite cheloe Chislo');
    readln(a);
    while a<>0 do
    begin
        write(a mod 10); //пишем последнюю цифру из числа в переменную а
        a:=a div 10; //  убираем последнее цифру из числа
    end;
    readln();
end.

nglag

Sat, 07/17/2021 - 14:54 

var
a, n, i : integer;
begin
    writeln(' Vvedite chislo : ');
    readln(a); //исходное число в переменную - "a";
    n := 0; //"n" - переменная для нового числа;
    while (a >0) do //цикл пока исходное число больше 0;
    begin
        i := a mod 10; //В переменную "i" записываем остаток от деления;
        n := n*10 + i; //остаток от деления прибавляем к новому числу;
        a := a div 10; //убираем последнюю цифру из исходного числа
    end;
    writeln('Chislo naoborot: ', n);
    readln;
end.
vedro-compota's picture

vedro-compota

Sun, 07/18/2021 - 11:45

решение засчитано

_____________
матфак вгу и остальная классика =)