Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вывести 3 числа в порядке возрастания https://www.cyberforum.ru/ pascalabc/ thread706019.html
program N; uses crt; var a, b, c : integer; BEGIN writeln; writeln('Введите 3 числа'); readln(a);
Построить графики двух функций Y=x^3*e^(2*x) и y=e^x*sinx Pascal ABC
Помогите построить графики двух функций Y=x^3*e^(2*x) и y=e^x*sinx.
Pascal ABC Преобразовать в Паскаль АВС. Выдает ошибку в модуле Detect. https://www.cyberforum.ru/ pascalabc/ thread705995.html
program fish; uses Crt,graph; const a=180;b=270;c=360; var gd,gm,r,x,y,n,m,i,j,s,q,mx,my:integer; okey:boolean; begin clrscr; writeln ('введите размер (радиус)чешуи от 5 до 100:'); repeat readln(r);
Pascal ABC Найти сумму самого короткого слова Дана строка, содержащая текст, Найти сумму самого короткого слова https://www.cyberforum.ru/ pascalabc/ thread705994.html
Написать программу для нахождения суммы максимальных элементов таблицы Pascal ABC
Найти сумму максимальных элементов строк таблицы.
Pascal ABC В каждом столбце матрицы поменять местами последний и максимальный элементы. В каждом столбце матрицы поменять местами последний и максимальный элементы. https://www.cyberforum.ru/ pascalabc/ thread705968.html
Pascal ABC Напечатать слова последовательности, которые отличны от последнего слова https://www.cyberforum.ru/ pascalabc/ thread705945.html
Данная последовательность от 2 до 50 слов, в каждом из которых от 1 до 8 малых латинских букв. Между соседними словами не менее 1 пробела, за последним - точка. Напечатать слова последовательности, которые отличны от последнего слова и удовлетворяют следующей свойства: а) длина слова максимальна; б) в слове нет буквы повторяющиеся; в) каждая буква входит в слово не менее 2 раз.
Pascal ABC Преобразовать последние элементы массива путём их умножения на значение первого чётного.
Ввести одномерный массив , состоящий из целых чисел, вывести его. Найти номер – номер первого четного элемента массива. Преобразовать последние элементов массива путём их умножения на значение первого чётного. Если преобразование не возможно, то вывести соответствующее сообщение. помогите написать программу.
Pascal ABC Описать запись с именем Gora https://www.cyberforum.ru/ pascalabc/ thread705849.html
1. Описать запись с именем Gora, содержащую следующие поля: □ наименование; □ высота над уровнем моря; □ страна. 2. Написать программу, выполняющую следующие действия: □ ввод данных с клавиатуры в массив, состоящий из восьми элементов типа Gora ; записи должны быть размещены записи должны быть размещены в алфавитном порядке по наименованию горной вершины; □ вывод на экран...
Pascal ABC Если введена запись одного из цветов red, blue, green, yllow, black, white, то присвоить его переменной Z https://www.cyberforum.ru/ pascalabc/ thread705825.html
Во входном файле задана последовательность малых латинских букв, которая заканчивается точкой. Если это запись одного из цветов red, blue, green, yllow, black, white, то присвоить его переменной Z.
Pascal ABC Найти цифры, которые есть в записи каждого из m чисел
дано m чисел. найти цифры, которые есть в записи каждого из m чисел
Pascal ABC Определите список студентов https://www.cyberforum.ru/ pascalabc/ thread705747.html
Во время сессии несколько студентов не сдали экзамен (фамилия, предмет, группа, дата). Определите список студентов, пересдавших задолженность; список студентов, не пересдавших задолженность; список студентов, пересдавших задолженность 18.01.2002.
17 / 17 / 28
Регистрация: 05.11.2012
Сообщений: 40
22.11.2012, 23:06 0

Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа налево) - Pascal ABC - Ответ 3740640

22.11.2012, 23:06. Показов 2629. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 2k7fakel как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a,b,z,d,i: integer;
s: array [1..100] of integer;
Begin
z:=10;
read(a);
 for i:=1 to 10 do
 if a<=z then begin b:=i; break; end
         else z:=z*10;
    for i:=1 to b do
    begin
    s[i]:=a mod 10;
    a:=a div 10;
    end;
       for i:=1 to b do
       write(s[i]);
 
End.
Насколько я понял эта.

Вернуться к обсуждению:
Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа налево) Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2012, 23:06
Готовые ответы и решения:

Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа на лево).
Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа...

Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа на лево).
Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа...

Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке слева направо).
Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке слева...

Слегка подправить программу. Вывести символы, изображающие цифры этого числа (в порядке справа налево)
Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа...

1
22.11.2012, 23:06
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2012, 23:06
Помогаю со студенческими работами здесь

Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа налево). Заранее всем
Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа...

Как вывести символы изображающие цифры данного числа (в порядке справа налево)
Доброго времени суток. Помогите решить такую задачку. Условие. Дано целое положительное число....

Как вывести символы изображающие цифры данного числа (в порядке справа налево) - Си
Как вывести символы изображающие цифры данного числа (в порядке справа налево) на Си

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

Дано целое число. Вывести набор символов содержит цифры этого числа в обратном порядке
дано целое число. вывести набор символов содержит цифры этого числа в обратном порядке

Дано целое число. Вывести набор символов, содержащий цифры этого числа в обратном порядке.
&quot;Дано целое число. Вывести набор символов, содержащий цифры этого числа в обратном порядке.&quot; ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru