PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Необходимо организовать создание файла, просмотр, дополнения, изъятия ПОМОГИТЕ ПОЖАЛУЙСТА С ФАЙЛАМИ... Файл F генерируется из случайных чисел, размерность файла указывает пользователь. Необходимо организовать создание файла, просмотр, дополнения, изъятия. А также в процессе обработки нужно после каждого четного элемента добавить значение, которое на 1 больше, а перед ним 0. https://www.cyberforum.ru/ pascalabc-net/ thread1296890.html	PascalABC.NET Вычислить результат побитовых логических операций AND и OR над двумя числами Помогите пожалуйста написать программу, вычисляющую результат побитовых логических операций AND и OR над двумя числами (ввод чисел и вывод результата должен быть в десятичной системе). Через процедуру.
PascalABC.NET Преобразовать массив таким образом чтобы элементы главной диагонали были равны единице Вообщем такая проблема. Дали на курсах задачу написать программу: Сформировать массив 10 на 10 заполненный нулями(0), затем вывести его на экран , после чего преобразовать таким образом что бы элементы главной диагонали были равны единице и вывести их на экран. Я набросал программу и получилось тока вывести нули. Вот собственно она: Program masiv1; var j,i:integer; m1:array of... https://www.cyberforum.ru/ pascalabc-net/ thread1296748.html	PascalABC.NET Подсчитать, какие предметы можно купить на определенную сумму Требуется определить, сколько можно приобрести ручек (по цене 10 руб.), карандашей (5 руб.) и ластиков (2 руб.) на 100 рублей. При этом всего предметов должно быть 30. const cruch=10; ckar=5; clas=2; sum=100; var kar,ruch,las: byte; begin for ruch:=0 to (sum div cruch) do https://www.cyberforum.ru/ pascalabc-net/ thread1296616.html
PascalABC.NET Количество повторящихся элементов в каждом столбце матрицы Уважаемый форум Решите, пожалуйста, задачу. В текстовом файле представлена прямоугольная таблица, она же матрица. По столбцам прочесть, какие в них представлены элементы и подсчитать повторяющиеся и неповторяющиеся, по сколько их. Результат представить также в виде таблицы (матрицы): Столбец1 Столбец2 Столбец3... СтолбецN ...	PascalABC.NET Выполнить перестановку элементов массива 1)рабочее задание Составить схему алгоритма и разработать программу, выполняют следующие действия : - Введение одномерного массива ( вектора ) ; - Вывод значений одномерного массива вместе с их именами ; - Вывод значений одномерного массива с p -го по q -й элемент ; - Введение двухмерного массива ( матрицы ) ; - Вывод строки матрицы с номером r ; - Вывода колонки матрицы с номером s ; -... https://www.cyberforum.ru/ pascalabc-net/ thread1296348.html
PascalABC.NET Бинарное дерево Создать структуру "бинарное дерево" с элементами файла из действительных чисел. Количество элементов массива n>28. Создать подпрограмму для изменения значений отрицательных элементов на их модули. https://www.cyberforum.ru/ pascalabc-net/ thread1295974.html	Вычислить приближенное значение числа 3/4 PascalABC.NET Вычислить приближенное значение числа 3/4 с точностью до E=0.001
PascalABC.NET Встречено else, а ожидалось ';' var a1,b1,a,b: real; begin Writeln('Введите А'); readln(a); Writeln('Введите B'); readln(b); a1:=0; b1:=0; if a>b then https://www.cyberforum.ru/ pascalabc-net/ thread1295782.html	PascalABC.NET Дано натуральное n, действительные а1, а2,., ап. Вычислить https://www.cyberforum.ru/ pascalabc-net/ thread1295759.html Дано натуральное n, действительные а1, а2,., ап. Вычислить в паскале АВС
PascalABC.NET Необходима программа, воспроизводящая звук Не могу найти код программы, которая воспроизводит звук! Кто-нибудь может помочь?	PascalABC.NET Удаление элемента из массива Как в одномерном массиве удалить N элемент и вывести все остальные элементы массива? https://www.cyberforum.ru/ pascalabc-net/ thread1295580.html

dexterlab97

0 / 0 / 1

Регистрация: 10.11.2014

Сообщений: 19

Вывести все цифры 5-значного числа - PascalABC.NET - Ответ 6832148

10.11.2014, 18:36. Показов 2975. Ответов 5

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Пишу программу которрая выыводит все цифры 5-значного числа

Pascal

program idc;
var nmb,a,b,c,d,e,f,g,h,i,j,k: integer;
begin
read(nmb);
a:=nmb div 10000;
e:=nmb mod 10;
j:=nmb mod 100;
d:=(j-e)/10;
k:=nmb mod 1000;
c:=(k-j)/100;
b:=(nmb-1000*a-10*c-d)/100;
writeln('a',a);
writeln('b',b);
writeln('c',c);
writeln('d',d);
writeln('e',e);
end.

и в конце
Program1.pas(8) : Incompatible types: 'real' and 'integer' (строка 8)
В чем ошибка?

Вернуться к обсуждению:
Вывести все цифры 5-значного числа PascalABC.NET

Следующий ответ

Лучшие ответы (1)

Сообщение: #6832424

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.11.2014, 18:36

Готовые ответы и решения:

Вывести все четырехзначные числа, у которых цифры разные
программа которая выводит все четырех значение числа у которых все цифры разные я не понимаю...

Вывести на экран все двузначные числа, первая цифра которых меньше второй цифры
Прошу вас мне помочь с этим пожалуйста завтра нужно сдать. Вариант 13. 1. Решить задачу...

Цикл: Вывести на экран все двузначные числа, первая цифра которых меньше второй цифры.
Вывести на экран все двузначные числа, первая цифра которых меньше второй цифры.Пожалуйста помогите...

Вывести на экран все четырехзначные числа, у которых первые три цифры равны, а также их количество и сумму
Вывести на экран все четырехзначные числа, у которых первые три цифры равны, а также их количество...

	10.11.2014, 18:36

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.11.2014, 18:36

Помогаю со студенческими работами здесь

Цикл: вывести на экран цифры числа, не превышающие заданной цифры A, и вычислить их произведение
Дано натуральное число N. Вывести на экран цифры, не превышающие заданной цифры a и вычислить их...

Программа показывающая сумму 1 и 3 цифры 4х значного числа
Не выводит результат program qq; var n,a,b,k:integer; begin write('Введите число: '); ...

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Хорошая тема,поэтому ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!! Условие: Вывести на экран все трехзначные числа,...

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй...

Наверх