|
|
| Другие темы раздела | |
| Pascal ABC Ввести двумерный массив Ввести двумерный массив A NхM. Все элементы, которые при цело численном делении на N дают ненулевое значение, увеличить на M. Массив вывести до и после преобразования. https://www.cyberforum.ru/ pascalabc/ thread747056.html |
Шахматная доска PascalABC Pascal ABC Нарисуйте пожалуйста шахматную доску в Паскале, 8х8, квадраты чередуются ну как в обычной шахм.доске черный-белый |
|
Pascal ABC Найти сумму и количество элементов в каждом столбце, положительных и лежащих вне главной диагонали
https://www.cyberforum.ru/ pascalabc/ thread747001.html Здравствуйте, решите, пожалуста, задачу Дан двумерный массив. Найти сумму и количество элементов в каждом столбце, положительных и лежащих вне главной диагонали. |
Pascal ABC Дан файл целых чисел. Удалить из него все элементы с четными номерами
https://www.cyberforum.ru/ pascalabc/ thread746915.html Нужно удалить все элементы с четными номерами, чтобы из одного файла читал, а в другой записал эти четные номера, вот все, что смог, помогите доделать пожалуйста Program R; uses crt; var f,f1:file of integer; i,j,x,n:integer; begin write('Количество чисел для записи в файл='); readln(n); |
|
Pascal ABC Вывести список трех студентов с наивысшими средними баллами для обучения по дополнительной программе Создать массив из 4 элементов типа данных "запись" с следующими полями: ФИО студента, количество "С", количество "4", количество "5", иностранный язык. Вывести список трех студентов с наивысшими средними баллами для обучения по дополнительной программе, если иностранной является немецкий язык. Ввод данных в массив и определения условия реализовать в виде библиотечного модуля с двумя... |
Pascal ABC Транспонирование матрицы
https://www.cyberforum.ru/ pascalabc/ thread746811.html Я хочу транспонировать матрицу А и вывести новую матрицу F randomize; writeln('Матрица А: '); for i:=1 to row do begin for j:=1 to col do begin a:=random(100); b:=a; |
| Pascal ABC Операторы цикла, массивы Дано натуральное число N. Определить количество 8-значных чисел, у которых сумма цифр в цифровой записи числа больше, чем N. Если таких чисел нет, то вывести слово «нет».Заранее спасибо https://www.cyberforum.ru/ pascalabc/ thread746804.html |
Найти среди чисел хотя бы одну арифметическую прогрессию Pascal ABC создать типизированный файл, в него записать любые целые числа, и найти среди них хотя бы одну арифметическую прогрессию. помогите пожалуйста. |
| Pascal ABC Определить количество натуральных чисел, сумма цифр которых равна заданному числу N Определить количество натуральных чисел, сумма цифр которых равна заданному числу N. ВСЕ РАБОТАЕТ , НО НУЖНО ПРОЦЕДУРУ CHISLA УПРОСТИТЬ. СЛИШКОМ МНОГО ЦИКЛОВ . ЗНАЮ ЖЕ ЧТО МОЖНО СДЕЛАТЬ ПРОЩЕ , НО НЕ МОГУ ПОНЯТЬ КАК. var kol, n, i, j, k, f, p: integer; s: integer; procedure CHISLA(n: integer; k: integer); begin for i:=1 to k do j:=j*10; https://www.cyberforum.ru/ pascalabc/ thread746730.html |
Pascal ABC Определить матрицу B=A^1+A^2+…+A^n
https://www.cyberforum.ru/ pascalabc/ thread746699.html Дана квадратная матрица A и натуральное число n. Определить матрицу B=A^1+A^2+…+A^n |
|
Pascal ABC Проверить, является ли введённое слово палиндромом 1. Создайте приложение, которое проверяет, является ли введённое слово палиндромом (т.е. слева направо и справа налево читается одинаково, например: шалаш). 2. Создайте приложение, предлагающее пользователю ввести строку, из которой затем удаляются все лишние пробелы. Пробел лишний, если он стоит рядом с другим пробелом. 3. Создайте приложение, которое «задумывает» число в диапазоне от 1 до 100... |
Pascal ABC Выполнить операции (здесь A, B, C, D — квадратные матрицы порядка n)
https://www.cyberforum.ru/ pascalabc/ thread746659.html (B-C)AD; помогите решить, Спасибо |
|
Добры_Змейка
53 / 53 / 43
Регистрация: 09.06.2010
Сообщений: 170
|
||||||
| 26.12.2012, 20:05 | 0 | |||||
Даны два целых числа. Выяснить, есть ли среди них кратные 10. - Pascal ABC - Ответ 392080026.12.2012, 20:05. Показов 3736. Ответов 1
Метки (Все метки)
 Сообщение было отмечено как решение
Решение
Вернуться к обсуждению: Даны два целых числа. Выяснить, есть ли среди них кратные 10. Pascal ABC
1
|
||||||
| 26.12.2012, 20:05 | |
|
Готовые ответы и решения:
1
Выяснить, есть ли среди чисел, заданных формулой, числа кратные A и одновременно не кратные B Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет наибольшее значение |
| 26.12.2012, 20:05 | |
| 26.12.2012, 20:05 | |
|
Помогаю со студенческими работами здесь
0
|