Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Записи с вариантами: Определить список студентов, пересдавших задолженность, учащихся на очном отделении Имя входного файла: z1211.in Имя выходного файла:z1211.out Во время сессии несколько студентов не сдали экзамен о них известно: фамилия, предмет, группа, обучение (если очное – то курс, если заочное – возраст студента), дата, статус (если пересдал –yes, если не пересдал - no). Если обучение очное, то вводить 1, если заочное 2. Определите список студентов, пересдавших задолженность, учащихся на... https://www.cyberforum.ru/ turbo-pascal/ thread663654.html Turbo Pascal Определить, является ли пятизначное число палиндромом
Написать программу на ТП, которая по заданному десятичному натуральному пятизначному числу N, печатает 1, если это число представляет собой палиндром (перевёртыш) и 0, в противном случае. Используя только целочисленную арифметику, и не использовать циклы и условия.
Turbo Pascal Определите количество украшений с сапфирами https://www.cyberforum.ru/ turbo-pascal/ thread663499.html
В продаже имеются женские украшения с драгоценными камнями и без них. Про каждое изделие известно название и цена, для изделий с драгоценными камнями известно название камня и его вес. Определите количество украшений с сапфирами, если изделий с сапфирами нет, то вывести 0.
Turbo Pascal Методом простой интеграции уточнить корень уравнения f(x)=ln(x)-х+1,8 https://www.cyberforum.ru/ turbo-pascal/ thread663491.html
Помогите разобраться с программой Программирование циклических процессов с использованием оператора Repeat - Until Методом простой интеграции уточнить корень уравнения f(x)=ln(x)-х+1,8 с погрешностью 0,001 на отрезке . Для этого задать начальное приближение, а для нахождения очередного приближения выразить х из уравнения f(x)=0 в виде х=\varphi(х). Отсюда хновое =\varphi(хстарое).
Turbo Pascal Протабулировать функцию
Здравствуйте, требуеться протабулировать значение функции f (x,y)=x+ √3+y2 при х изменяющемся от 0 до 1 с шагом 0.1, а у от 0 до 1 с шагом 0.2 не могу пнять как сделать(
Turbo Pascal Из имен - в инициалы https://www.cyberforum.ru/ turbo-pascal/ thread663465.html
Доброго времени суток!Помогите,пожалуйста,с задачей. Дан список Ф.И.О.,например: 3 Turowa Diana Andreewna Li Dmitri Viktorovih Vasin Petr Alekseevich Первая строка-количество людей.Необходимо напечатать список фамилий и инициалов.Т.е.,например: Turowa D. A. Li D. V.
Turbo Pascal Построить вектор b, где bi, i=1,…,n – максималь-ный элемент i строки матрицы, среди элементов, стоящих в нечетных Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – максималь-ный элемент i-й строки матрицы, среди элементов, стоящих в нечетных столбцах. https://www.cyberforum.ru/ turbo-pascal/ thread663416.html Turbo Pascal Удаление части строки, заключенной в скобки
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций со строками: 1) Процедура удаления части строки, заключенной в скобки (вместе со скобками); 2) Процедура подсчета количества слов в строке, начинающихся на букву "е"; 3) Функция определения количества символов в последнем слове строки.
Turbo Pascal В векторе подсчитать количество квадратов нечетных чисел и заменить их на кубы чисел Дан вектор A(n). В векторе подсчитать количество квадратов нечетных чисел и заменить их на кубы чисел. Заранее спасибо!!! https://www.cyberforum.ru/ turbo-pascal/ thread663376.html Turbo Pascal Заменить последний отрицательный элемент на второй элемент массива https://www.cyberforum.ru/ turbo-pascal/ thread663373.html
Дан массив целых чисел (n=22), заполненный случайным образом числами из промежутка . Заменить последний отрицательный элемент на второй элемент массива. Задачи без формул набирайте вручную. В одной теме размещайте одну задачу. Больше предупреждений не будет.
Turbo Pascal Переставить элементы массива
Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка . Переставить элементы следующим образом: a, a, a, a,...,a,a,a,a.
Turbo Pascal Определить плотность населения, если известно количество жителейи площадь территории https://www.cyberforum.ru/ turbo-pascal/ thread663357.html
Известно количество жителей в государстве и площадь его территории. Определить плотность населения в этом государстве.
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32793 / 21133 / 8144
Регистрация: 22.10.2011
Сообщений: 36,393
Записей в блоге: 8
04.10.2012, 21:05 0

Вывести на экран все положительные трехзначные числа, сумма первой и третьей цифры которых равна второй цифры - Turbo Pascal - Ответ 3520902

04.10.2012, 21:05. Показов 1425. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
var
   i : integer;
begin
   for i := 100 to 999 do
      if (i mod 10) + (i div 100) = ((i div 10) mod 10) then writeln(i);
end.


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

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

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

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

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

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

Найти все простые числа из интервала (1000, 9999), у которых сумма первой и второй цифры равна сумме третьей и четвертой цифры.
Всем привет! :beach: Дали 6 заданий по практике, нужно выбрать одну из них и написать на С++...

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

Посчитать количество чисел, в которых сумма первой цифры и третьей цифры равна второй цифре
Условие: посчитать количество чисел, в которых сумма первой цифры и третей цифры равна второй...

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

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