Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Определить количество учеников, оценка которых меньше средней оценки по классу в массиве записаны оценки по информатике 22 учеников класса. Определить количество учеников, оценка которых меньше средней оценки по классу, и вывести номера элементов, соответствующих таким ученикам. https://www.cyberforum.ru/ pascal/ thread87402.html Pascal Блок схеема
нужна блок схема uses crt; const ms:array of string=('январь','февраль','март','апрель','май', 'июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь'); gr:array of string=('младшая','средняя','старшая','подготовительная'); type dety=record fam:string; mes:string;
Pascal Определить сумму всех элементов третьей строки матрицы определить сумму всех элементов третьей строки https://www.cyberforum.ru/ pascal/ thread87398.html Pascal Если два числа кратны некоторому заданному числу, то большее из этих чисел уменьшить в 2 раза. 1. Даны два числа. Если эти числа кратны некоторому заданному числу, то большее из этих чисел уменьшить в 2 раза. В противном случае каждое из этих чисел увеличить на сумму их квадратов. Помогите пожалуйста!!!! https://www.cyberforum.ru/ pascal/ thread87396.html
Является ли заданная целая квадратная матрица n-го порядка симметричной Pascal
Определить, является ли заданная целая квадратная матрица n-го порядка симметрической(относительно главной диагонали).
Pascal Составить массив из сумм элементов строк матрицы дан двумерный массив размером (nxm). сосавить из него одномерным массив, каждый элемент которого равен сумме нечетных элементов соответсвующей строки исходного массива. https://www.cyberforum.ru/ pascal/ thread87376.html
Pascal Определить минимальный элемент второй строки двухмерного массива. https://www.cyberforum.ru/ pascal/ thread87371.html
Дан двумерный массив. Определить минимальный элемент второй строки массива.
Получить массив Y(N) такой, что в нем сначала идут положительные числа, затем отрицательные из X. Pascal
дан массив X(N). Получить массив Y(N) такой, что в нем сначала идут положительные числа, затем отрицательные из X.
Pascal Определить количество дней, в которых оценки меньше средней оценки по классу https://www.cyberforum.ru/ pascal/ thread87355.html
в массиве записаны оценки по информатике 22 учеников класса. Определить количество дней, в которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих таким ученикам.
Pascal что нужно добавить? Всем доброго времени суток. Завтра сдавать практику а одна прога не доконца фурычит Сама задача! В магазин доставили товар 1)из какой страны доставили самый дорогой,дешёвый товар . 2)Какой товар и из какой страны поступил в наибольшем колличестве-вот задача ВТорое не выходить помогите кому не сложно буду очень признателен. программа program Proga; uses crt; https://www.cyberforum.ru/ pascal/ thread87350.html
Pascal Подсчет степени
Доброго всем утра. В общем сложилась небольшая проблема. Вычисление такой вот степени (1+х)^3/5 при условии x<=0. Как видите, через exp нельзя. Каким еще способом можно ее подсчитать?
Pascal Определить количество элементов больших суммы всех элементов и написать их номера. https://www.cyberforum.ru/ pascal/ thread87343.html
Дан массив. Определить количество элементов больших суммы всех элементов и написать их номера.
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
19.01.2010, 14:33 0

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

19.01.2010, 14:33. Показов 4006. Ответов 1
Метки (Все метки)

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

Решение

Можно так
Pascal
1
2
3
4
5
6
7
8
9
10
var
  i,n:integer;
  s:string;
begin
  ReadLn(n);
  Str(N,S);
  for i:=Length(s) downto 1 do
    Write(s[i]);
  WriteLn
end.
Можно так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  temp,n:integer;
begin
  readln(n);
  temp:=n;
  while temp<>0 do
  begin
    write(temp mod 10);
    temp:=temp div 10
  end;
  WriteLn
end.


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

Задано целое число. Вывести набор символов, содержащих цифры этого числа в обратном порядке
Условие: Задано целое число. Вывести набор символов, содержащих цифры этого числа в обратном...

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

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

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

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

Вывести набор символов, содержащий цифры этого числа в иходном1|обратном2 порядке
Добрый день ребят. 2. (С++): Дано целое число. Вывести набор символов, содержащий цифры этого...

Принять целое число и вывести на экран в обратном порядке цифры этого числа
Итак. Программа принимает целое число и выводит на экран в обратном порядке цифры этого...

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

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

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