Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
НЕваЖно
2 / 2 / 0
Регистрация: 03.11.2008
Сообщений: 63
1

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

23.12.2008, 20:15. Просмотров 1207. Ответов 1
Метки нет (Все метки)

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.(решить используя цикл с предусловием и с постусловием).
Помогите плз
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2008, 20:15
Ответы с готовыми решениями:

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

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

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

Вывести все трехзначные числа в которых есть две одинаковые цифры
Вывести на экран все трех значные числа в которых есть две одинаковые цифры.Причем реализовать...

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

1
Arnaulf
15 / 15 / 5
Регистрация: 22.12.2008
Сообщений: 69
23.12.2008, 23:49 2
Вот код:
Код
uses crt;
var ch:integer;
begin
clrscr;
ch:=100;
{с предусловием}
while ch<1000 do
begin
  if (ch mod 10) + (ch div 100)>(ch div 10) mod 10 then begin writeln(ch);ch:=ch+1;end
  else  ch:=ch+1;
end;
ch:=100;
{с послусловием}
repeat
   if (ch mod 10) + (ch div 100)>(ch div 10) mod 10 then begin writeln(ch);ch:=ch+1;end
  else ch:=ch+1;
until ch=1000;
readln;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2008, 23:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

Вывести на экран числа,в которых цифры разные
Полбзователь с клавиатуры задает целое позитивное число N (1&lt;N&lt;10). Пользователь должен ввести N...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.