Написать программу в паскале авс дано четырехзначное число. найти: число, полученное при прочтении его цифр справа налево.

nikitafill123 nikitafill123    2   19.08.2019 16:20    7

Ответы
butchenko02 butchenko02  20.08.2020 12:12
Var
  n, k: integer;
begin
  readln(n);
  k:=0;
  while n > 0 do
  begin
    k:=k*10 + n mod 10;
    n:=n div 10;
  end;
  writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика