![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 16.05.2012
Сообщений: 2
|
![]()
Задані цілі числа від 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. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |