Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
arina_d
0 / 0 / 0
Регистрация: 12.10.2019
Сообщений: 4
1

Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный

12.10.2019, 13:26. Просмотров 50. Ответов 1
Метки нет (Все метки)

Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный (K – параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.10.2019, 13:26
Ответы с готовыми решениями:

пожалуйста составить программу. вариант 10
http://www.cyberforum.ru/attachment.php?attachmentid=868934&stc=1&d=1506801900

Помогите составить программу пожалуйста..
решение квадратных уравнений.. чтобы можно было задать параметр корней.. ( например больше 2 ) и...

Пожалуйста помогите составить программу на тему "Модули". экзамен
Здравствуйте. Помогите пожалуйста решить задачу, желательно срочно. Экзамен ребята.... ...

Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=1*2*3...n.
Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где...

Составить блок схему вычисления значения функции, а затем составить программу
Составить блок схему вычисления значения функции, а затем составить программу

1
Puporev
Модератор
57442 / 43811 / 30266
Регистрация: 18.05.2008
Сообщений: 104,563
12.10.2019, 13:45 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure InvertDigits(var k:integer);
var m,p:integer;
begin
if k<10 then p:=k
else
 begin
  m:=k;
  p:=0;
  while m>0 do
   begin
    p:=10*p+m mod 10;
    m:=m div 10;
   end;
 end;
k:=p;
end;
var n:integer;
begin
repeat
write('Введите натуральное n>0 n=');
readln(n);
until n>0;
InvertDigits(n);
write('Число наоборот=',n);
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.10.2019, 13:45

Строка: Составить программу,определяющую можно ли из букв слова А составить слово В.
Даны два слова.Составить программу,определяющую можно или нет из букв слова А составить слово В.

Объясните, пожалуйста, как составить матрицу.
Объясните,пожалуйста, как составлять a11,a12,a21 и a22:scratch: f1:=tan(x*y)-(x*x); ...

Составить блок-схему и программу вычисления значения функции + написать программу
Прошу решить в качестве проверки. Нужно сдать в понедельник. Буду очень благодарен! Заранее...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.