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

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

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

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

Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N.
Дано целое число N (&gt; 1). Найти наибольшее целое число K, при котором...

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

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

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

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

2
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
22.02.2010, 23:53 2
А при чем тут символы и целое число? И вообще что сам пытался делать и что получилось?
0
Puporev
Модератор
54676 / 42098 / 29067
Регистрация: 18.05.2008
Сообщений: 99,340
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

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

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

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


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

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

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