|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.11.2008, 19:06 | #31 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
все исправил но всеравно теперь когда вводишь число коноторое некратно, просто вниз курсор спускается и все, вставил пустой readln
|
29.11.2008, 19:12 | #32 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
там где я весь код привёл я подправлял проверте всё ли так же
24 пост |
29.11.2008, 19:18 | #33 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
большое спасибо заработало
з.ы. не на програмиста я учусь))) |
09.12.2008, 19:02 | #34 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
Program Laba2;
{*****} Var chislo,A,PropuskCifr:Integer; Flag:Boolean; begin chislo:=(5040+(PropuskCifr*100)+Pro puskCifr) Write ('Введите целочисленный дилитель : '); Readln (A); write('Числа заданные маской 5*4* кратные ',A,' - '); Flag:=False; for PropuskCifr:= 0 to 9 do if (5040+(PropuskCifr*100)+PropuskCifr ) mod A=0 then begin write ('',(5040+(PropuskCifr*100)+Propusk Cifr),' '); Flag:=True; end; if not Flag then writeln ('Чичла ненайдены '); readln; end. вот задали теперь в этой же программе заменить (5040+(PropuskCifr*100)+PropuskCifr ) переменной chislo, только ни как не могу правильно поставить, знаю что присваивать надо где то в цикле а где точно не знаю помогите плз Последний раз редактировалось Ananim-Pbl6ak; 09.12.2008 в 19:07. |
09.12.2008, 21:46 | #35 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 500
|
Код:
Код:
Skype : UASm1Le.
|
09.12.2008, 22:14 | #36 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
если так ставишь то программа не работает
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
запуск с параметром... | prizrak1390 | Общие вопросы Delphi | 4 | 16.05.2008 22:29 |
Работа с циклами 2. Вопрос | SPQR | Помощь студентам | 5 | 27.10.2007 11:20 |
Работа с циклами. | Надюха | Помощь студентам | 3 | 26.10.2007 09:29 |
Помогите с ЦИКЛАМИ | kl45gp | Общие вопросы Delphi | 11 | 25.04.2007 16:02 |