Вывести все двухзначные числа, сумма которых равна N. - Помощь студентам

djquins · 27.06.2013, 11:34

Помогите пожалуйста написать программу на Turbo Pascal.

Mad_Cat · 27.06.2013, 11:51

Код:

for i:=10 to 99 do
for j:=10 to 99 do
if (i+j=n) then writeln(i:4,j:4);

djquins · 27.06.2013, 11:54

Это точно на Turbo Pascal? Если да, то заранее, спасибо.

Mad_Cat · 27.06.2013, 11:56

Цитата:

Это точно на Turbo Pascal?

точнее некуда, на самом что ни на есть Turbo

Цитата:

Сейчас попросят программу целиком

придерживаюсь того же мнения)

Arigato · 27.06.2013, 11:57

Сейчас попросят программу целиком

djquins · 27.06.2013, 12:03

Цитата:

Сообщение от Arigato

Сейчас попросят программу целиком

Нет, дальше сам постараюсь дописать.

27.06.2013, 11:34	#1
djquins Регистрация: 26.06.2013 Сообщений: 6	Вывести все двухзначные числа, сумма которых равна N. Помогите пожалуйста написать программу на Turbo Pascal.

27.06.2013, 11:51	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `for i:=10 to 99 do for j:=10 to 99 do if (i+j=n) then writeln(i:4,j:4);` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

27.06.2013, 11:54	#3
djquins Регистрация: 26.06.2013 Сообщений: 6	Это точно на Turbo Pascal? Если да, то заранее, спасибо. Последний раз редактировалось djquins; 27.06.2013 в 11:56.

27.06.2013, 11:57	#5
Arigato Высокая репутация СуперМодератор Регистрация: 27.07.2008 Сообщений: 15,547	Сейчас попросят программу целиком E-Mail: arigato.freelance@gmail.com

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача на Pascal ABC: Два трёхзначных числа a и b. В интервале от a до b все числа, сумма цифр которых кратна 3, выдать зеркально	Andrew5674	Помощь студентам	5	16.04.2013 23:00
За один просмотр файла вывести все числа, сумма цифр которых наименьшая	gylayko	Помощь студентам	1	06.10.2012 20:49
Программа, которая выводит на экран все четырехзначные числа, сумма цифр которых равна 7	vitaaly	Паскаль, Turbo Pascal, PascalABC.NET	3	06.02.2012 15:46
C++ Вывести на экран все натуральные числа из диапазона от A до B, в записи которых цифра 7 встречается	maloy0103	Помощь студентам	1	27.12.2010 00:17
определить все двузначные числа сумма квадратов цифр которых кратна числу 15 [Pascal]	mrRastom	Помощь студентам	5	16.12.2010 09:47