Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вычислить значение максимума https://www.cyberforum.ru/ turbo-pascal/ thread282055.html Ку Дано : http://vfl.ru/i/20110423/49150f415298e50e8ab2c57c60d44e13_1.png.html 2 Задание если знаешь как решать поможешь?	Turbo Pascal вычислить произведение дробной части Доброго всем дня) 1) Дано: действительное число вычислить произведение дробной части ( 4 цифры дробной части) Решение : ____ 2) Дано: Подсчитать произведение положительных и произведение отрицательных чисел в последовательности из трех произвольно задаваемых чисел Решение : ___
Turbo Pascal вот соль http://vfl.ru/i/20110423/c5188fe797e...7f0_1.png.html 2 Задание https://www.cyberforum.ru/ turbo-pascal/ thread282039.html Всем доброго дня ). Дали д/з хотелось бы решить вот соль http://vfl.ru/i/20110423/c5188fe797e2a8db72a076ab5f9917f0_1.png.html 2 Задание P.S когда вкл паскал то выдает синий экран( ati***.exe---там такая ошибка что делать ?? зупускаю прогу с папки тоесть не устанавливал на комп)	Turbo Pascal массив как сделать??? https://www.cyberforum.ru/ turbo-pascal/ thread282027.html В массиве чисел D3 : D13 подсчитать число элементов, предшествующих первому по порядку нулевому элементу.
Turbo Pascal Неверно выводится информация через массив Тащем то вот текст, кусок проги, должен по всей логике выводить на каждой строчке фамилию, имя, отчество, и переходить на следующую строку, нормально выводит только фамилию. Program KURSOVAYA; Uses CRT; Const n=24; ...	Turbo Pascal Разбить массив на два помогите решить задачу очень срочно)) Разбить массив на два: а) только положительные б) только отрицательные https://www.cyberforum.ru/ turbo-pascal/ thread282004.html
Turbo Pascal Построение графиков распределения потенциала вот собственно само задание. буду очень благодарен за любую помощь https://www.cyberforum.ru/ turbo-pascal/ thread281960.html	Вывести символы, которые встречаються в тексте чаще всего и реже всего Turbo Pascal В файл g1 набрать текст 1) Для каждого слова задонного предложения укозать долю гластных. Отредактировать задонное предложение , заменяя многоточие точкой. 2)Ввести все буквы (руские и латинские) , которыене встречаються в тексте. 3)Ввести символы , которые встречаються в тексте чаще всего и реже всего , во всем тексте поменять его на цифру "5". 4)результат вывести в конец файла g1.
Turbo Pascal Заменить число на название соответствующего месяца Помогите плиз... Во введенной пользователем строке все строки вида .ХХ. (Х-произволтная цифра) заменить на название соответствующего месяца в пробелах. Например, исходная строка <<Сегодня - 10.02.2003>>,результат -<<Сегодня - 10 февраля 2003>>. https://www.cyberforum.ru/ turbo-pascal/ thread281932.html	Turbo Pascal Дана последовательность чисел в количестве n штук.определить сколько из них кратно числу 7 Дана последовательность чисел в количестве n штук.определить сколько из них кратно числу 7 программа то есть: var i,a,c,n:integer; begin c:=0; randomize; write('Введите размер последовательности '); https://www.cyberforum.ru/ turbo-pascal/ thread281912.html
Turbo Pascal динамический список подскажите как можно выводить на экран по несколько элементов списка(например жмешь 1 - выводит 5 элементов жмешь 2 - 10 элементов списка) и так до конца списка.... подскажите именно реализацию поэлементного вывода....	Turbo Pascal Создание модулей. Помогите ,пожалуйста, написать программу с использованием модуля содержащего процедуры расчета элементов линейных массивов "В", являющихся: наибольшими элементами в строках матрицы "А" (NxM). Значения элементов матрицы "A" определяются в основной программе функцией Random(10), N=15, M=6. Программа должна выводить на экран значения элементов массивов "А" и "В". https://www.cyberforum.ru/ turbo-pascal/ thread281882.html

marshal

Robin Bad на форуме

237 / 237 / 194

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

Сообщений: 513

23.04.2011, 19:39

Установить, что сумма двух первых цифр равна сумме двух последних - Turbo Pascal - Ответ 1580802

23.04.2011, 19:39. Показов 2162. Ответов 3

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

Сообщение было отмечено Памирыч как решение

Решение

Цикл с параметром ставьте

Pascal

uses crt;
var i:integer;
begin
clrscr;
for i:=100 to 999 do {переменная будет проверять все трехзначные числа}
if (i mod 10+(i div 10)mod 10)=(i div 100+(i div 10)mod 10) then write(i,' ');{проверка условия, mod - остаток от деления двух чисел, div - целое число от деления}
end.

Вернуться к обсуждению:
Установить, что сумма двух первых цифр равна сумме двух последних Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.04.2011, 19:39

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

Найти все четырехзначные числа, такие, что сумма первых двух цифр равна сумме двух последних
найти все четырехзначные числа, такие, что сумма первых двух цифр равна сумме двух последних

Равна ли сумма двух первых цифр числа сумме двух его последних
Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его...

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

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

	23.04.2011, 19:39

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.04.2011, 19:39

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

Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр"
Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна...

Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр.
Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр.

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

Программа, определяющая количество билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних
Подскажите,как написать программу, определяющую количество билетов с 6-значными номерами, у которых...

Наверх