Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Danger Dominik
1 / 1 / 0
Регистрация: 17.11.2009
Сообщений: 30
#1

Дано целое число... - Pascal

22.02.2010, 23:33. Просмотров 369. Ответов 2
Метки нет (Все метки)

Дано целое число. Создать массив символов, содержащий цифры этого числа в исходном (обратном) порядке
http://www.cyberforum.ru/pascal/thread175163.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2010, 23:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано целое число... (Pascal):

Дано целое число N(>1) вывести на именьшее целое K,при котором выполняется неравенство
Дано целое число N(>1) вывести на именьшее целое K,при котором выполняется...

Дано целое число N (> 1). Вывести наибольшее целое K...
Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется...

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн
Дано целое число. Вывести его строку-описание вида «отрицательное четное...

Указать количество дней месяца, если дано номер месяца - а (целое число от 1 к 12) и целое число n (номер года). Если окажется, что введенные даные не
Указать количество дней месяца, если дано номер месяца - а (целое число от 1 к...

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму 1 + A + A^2 + A^3 + ... + A^N.
Дано вещественное число A и целое число N (> 0). Используя один цикл, найти...

2
Inadequate
Retired
7709 / 2542 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
22.02.2010, 23:53 #2
А при чем тут символы и целое число? И вообще что сам пытался делать и что получилось?
0
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
23.02.2010, 09:20 #3
Лучший ответ Сообщение было отмечено Danger Dominik как решение

Решение

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
26
27
28
29
30
uses crt;
var n,m:longint;
    mis,mob:array[1..10] of char;
    k,c,i:byte;
begin
clrscr;
writeln('Введите целое число:');
readln(n);
m:=n;
k:=0;
while m>0 do
 begin
  c:=m mod 10;
  k:=k+1;
  mis[k]:=chr(c+48);
  m:=m div 10;
 end;
writeln('Массив символов в обратном порядке:');
for i:=1 to k do
write(mis[i],' ');
writeln;
writeln;
writeln('Массив символов в исходном порядке:');
for i:=1 to k do
 begin
  mob[i]:=mis[k-i+1];
  write(mob[i],' ');
 end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2010, 09:20
Привет! Вот еще темы с решениями:

Дано вещественное число А и целое число N(>0). Используя один цикл, найти сумму 1+A+A^2+...+A^N.
1) Дано вещественное число А и целое число N(>0). Используя один цикл, найти...

дано целое положительное число.найти число,равное сумме кубов этого числа
дано целое положительное число.найти число,равное сумме кубов цифр исходного...

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти значение выражения 1 - A + A^2 - A^3 + ... + (-1)^N*A^N.
Дано вещественное число A и целое число N (> 0). Используя один цикл, найти...

Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму: 1 + A + A2 + A3 + .+ AN. (1+а+(а в степени 2 )+(а в с
Дано вещественное число A и целое число N (> 0). Используя один цикл, найти...


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

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

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