|
|
Другие темы раздела | |
Turbo Pascal 11. Даны целые числа a1 a2, .... аn. Вывести на печать только те числа, для которых выполняется условие аi ≤ i. 11. Даны целые числа a1 a2, .... аn. Вывести на печать только те числа, для которых выполняется условие аi ≤ i. https://www.cyberforum.ru/ turbo-pascal/ thread311668.html |
Turbo Pascal Вывод текстового файла Можете помочь с процедурой вывода файла по строкам в графическом режиме.Файл ТХТ находиться ниже. Для побудови равлики Паскаля досить намалювати коло W довільного радіуса R = a, вибрати на ній деяку точку А і почати обертати навколо точки А промінь АС. Якщо по обидві сторони від другої точки перетину променя АС з колом на промені АС відкладати відрізки, рівні радіусу вихідної кола (R = a), то... |
Turbo Pascal нужна блок-схема к программе y=Arccos(x)-Arccos(2x)+Arccos(3x) Program My_Program; var y,x:real; function arccos(x:real):real; begin arccos:=arctan(sqr(x)+(1-sqr(x)))/x end; begin writeln('x='); https://www.cyberforum.ru/ turbo-pascal/ thread311658.html |
Turbo Pascal Составить программу перевода футов в метры (1 фут равен 0,3048 м) (счетчик цикла меняется от 1 до 30).
https://www.cyberforum.ru/ turbo-pascal/ thread311641.html Что я застрял на этих циклах, не знаю в чем причина, но выдает ошибку Вот что я написал,- Помогите пожалуйста довести дело до ума! program Project2; {$APPTYPE CONSOLE} var f,m,r:real; begin write('F= '); |
Turbo Pascal Вывести на экран матрицу под ней вывести минимальное и максимально значение элементов Помогите умне люди:curtsy: Вывести на экран матрицу под ней вывести минимальное и максимально значение элементов, и вывести сумму элементов главной и побочной диагонали |
Turbo Pascal Дано натуральное число n. Выбросите из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Дано натуральное число n. Выбросите из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 59015509 должно получиться 919. Результат выведите на экран https://www.cyberforum.ru/ turbo-pascal/ thread311616.html |
Turbo Pascal Создать текстовый файл и найти самое длинное слово в текстовом файле Создать текстовый файл и найти самое длинное слово в текстовом файле --- Mawrat: Посмотри этот код. Его можно приспособить для решения твоей задачи. https://www.cyberforum.ru/ turbo-pascal/ thread311610.html |
Определить есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. Turbo Pascal Дан двумерный массив Х размерностью n*m заполняемый случайными числами. Определить есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. Определить произведение минимальных элементов в каждой сторке матрицы Х. МОИ НАБРОСКИ: program zadanie2; uses crt; var min,m,n,i,j:integer; x:array of integer; y:real; procedure zapolnenie; |
Turbo Pascal Вычисление количества отрицательных значений списка Дан список А, состоящий из записей: первое поле - целое число, второе - адрес следующего элемента. Составить программу для вычисления количества отрицательных значений списка. https://www.cyberforum.ru/ turbo-pascal/ thread311598.html | Turbo Pascal Множества Дан текст из цифр и строчных латинских букв, за которыми следует точка. Определить каких букв - гласных или согласных - больше в этом тексте. https://www.cyberforum.ru/ turbo-pascal/ thread311584.html |
Turbo Pascal База даных Не могу понять почему выдает ошибку вроде все правильно сделал:wall:. Блок с ошибкой выделен полужирным шрифтом. Вот програмный код, данные на поиск с отдельного файла BANK.txt {Основная программа} Uses CRT; Type TypeBank = Record Name : String; {Фамилия} Count : String; {Номер счета} Money : Real; {Сумма денег на счете} |
Turbo Pascal Динамические структуры данных. Линейные списки.Очень срочно надо.
https://www.cyberforum.ru/ turbo-pascal/ thread311575.html Дан список А, состоящий из записей: первое поле- символ, второе - адрес следующего элемента. Составить программу, которая удаляет из списка А все элементы Е, если таковые имеются. |
63 / 63 / 51
Регистрация: 20.05.2011
Сообщений: 116
|
||||||
03.06.2011, 15:38 | 0 | |||||
Вывести на экран те числа, у которых сумма первых двух цифр равна сумме двух последних - Turbo Pascal - Ответ 172166403.06.2011, 15:38. Показов 6141. Ответов 1
Метки (Все метки)
Сообщение было отмечено di# как решение
Решение
Вернуться к обсуждению: Вывести на экран те числа, у которых сумма первых двух цифр равна сумме двух последних Turbo Pascal
0
|
03.06.2011, 15:38 | |
Готовые ответы и решения:
1
Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних, а также их количество и сумму. Равна ли сумма двух первых цифр числа сумме двух его последних Равна ли сумма первых двух цифр четырехзначного числа сумме двух последних цифр Найти все четырехзначные числа, такие, что сумма первых двух цифр равна сумме двух последних |
03.06.2011, 15:38 | |
03.06.2011, 15:38 | |
Помогаю со студенческими работами здесь
0
Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр" Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр. Установить, что сумма двух первых цифр равна сумме двух последних Верно ли, что сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр |