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

Primary tabs

Submitted by jl8qy9kd_pro on Thu, 07/22/2021 - 12:40

Forums:

http://fkn.ktu10.com/?q=node/7341

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

46541
(используйте опеции div и mod )

var  c: integer;
begin
  writeln('vvedi 5X chislo');
  readln(c);
  write(c mod 10);
  c:= c div 10 ;
  write(c mod 10);
  c:= c div 10 ;
  write(c mod 10);
  c:= c div 10 ;
  write(c mod 10);
  c:= c div 10 ;
  write(c mod 10);
  readln();
end.
  • Log in to post comments
  • 1665 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 13:59

решите через цикл

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

jl8qy9kd_pro

Tue, 07/27/2021 - 11:54 

var  c, k: integer;
begin
  writeln('vvedi  chislo');
  readln(c);
  while(c <> 0) do
    begin
      write(c mod 10);
      c:= c div 10 ;
    end;
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 07/27/2021 - 19:01

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

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