Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.05.2012, 18:45   #1
Саша513
Новичок
Джуниор
 
Регистрация: 16.05.2012
Сообщений: 2
По умолчанию Задані цілі числа від 1 до 100.Надрукувати в порядку зростання усі числа що можна подати у вигляді 7*i*j+j+3, де i,j - цілі числа.

Задані цілі числа від 1 до 100.Надрукувати в порядку зростання усі числа що можна подати у вигляді 7*i*j+j+3, де i,j - цілі числа.

ПОМОГИТЕ НА ЗАВТРА НАДА!!!!!

Множини


program lab8;
uses crt;
var mn: set of 1..100;
ch,g,i,j,k,tmp: byte;
s:char;
mas: array [1..100] of byte;
begin
clrscr;
writeln('continue [y,n]');
repeat
write('ch - ');
readln(ch);
include(mn,ch);
s:=readkey
until s='n';
writeln('rezult:');
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
g:=7*i*j+j+3;
if g in mn then begin
k:=k+1;
mas[k]:=g;
end;
end;

for i:=1 to k do
for j:=1 to k do
if mas[i] < mas[j] then
begin
tmp:=mas[i];
mas[i]:=mas[j];
mas[j]:=tmp;
end;

for i:= 1 to k do
if i=k then write(mas[i],'.')
else write(mas[i],', ');

readkey;
end.


не знаю што не так((

Последний раз редактировалось Саша513; 16.05.2012 в 19:11.
Саша513 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VisualBasic.Исключить из числа цифры, стоящие между первой и последней цифрой числа. ride013 Помощь студентам 0 03.05.2011 21:20
Даны натуральные числа n и m. Получить сумму m последних цифр числа n pahanzona Microsoft Office Excel 11 27.02.2011 02:17
Вычислить:у=а*(в*в*в)*с,где а,в,с-двоичные числа.Для хранения числа использ.массив! Таняпервокурсница Помощь студентам 4 04.06.2010 12:08
Числа от 1 до 100 и обратно Винни пух JavaScript, Ajax 6 05.05.2009 17:22
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль, Turbo Pascal, PascalABC.NET 3 23.03.2008 21:49