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

Primary tabs

Submitted by boris68 on Wed, 08/04/2021 - 11:03

Forums:

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

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

46541
(используйте опеции div и mod, подразумевается решение через цикл )

var a, i, k: integer;
begin
  writeln('vvedite 5-znachnoe chislo');
  readln(k);
  for i := 0 to 4 do
  begin
    a := k mod 10;
    k := k div 10;
    write(a);
  end;
  readln();
end.
  • Log in to post comments
  • 836 reads
vedro-compota's picture

vedro-compota

Wed, 08/04/2021 - 11:17

добавьте вариант, где число итераций зависит от количества цифр числа (через цикл while)

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

boris68

Wed, 08/04/2021 - 12:15 

var a, i, k: integer;
begin
  writeln('vvedite celoe chislo');
  readln(k);
  while (k <> 0) do
  begin
    a := k mod 10;
    k := k div 10;
    write(a);
  end;
  readln();
end.