![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
![]()
Program Laba2;
{Работу выполнил} Var A,I: Integer; begin Write ('Введите делитель A: '); Readln (A); for A:= 0 to 9 do if A |
![]() |
![]() |
![]() |
#12 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,591
|
![]() Цитата:
![]() Я не думаю, что стоит приводить решение за Вас. Ваши знания, судя по всему, близки к 0. Изучите соответствующую литературу, рассмотрите примеры, тогда продолжим беседу. E-Mail: arigato.freelance@gmail.com
|
|
![]() |
![]() |
![]() |
#13 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
![]()
Program Laba2;
{‚лЇ®«*Ё« ђ®¬**®ў Ђ*в®*} Var A,I: Integer; begin Write ('Введите делитель A: '); Readln (A); for A:= 0 to 9 do if A в правильном направлении? |
![]() |
![]() |
![]() |
#14 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,591
|
![]()
Нет, цикл по I.
E-Mail: arigato.freelance@gmail.com
|
![]() |
![]() |
![]() |
#15 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
![]()
почему по I, и что I обозначает?
|
![]() |
![]() |
![]() |
#16 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
![]()
Потому что A у вас число на которое будите делить а вы ему 0 присвоили в первое прохождение, 1 во второе и так до 9
![]() И судя по всему даже не запускали, и дальше не писали иначе уже бы на ошибку жаловались. Последний раз редактировалось vovk; 20.11.2008 в 10:04. |
![]() |
![]() |
![]() |
#17 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,591
|
![]()
I - пропущенная цифра в числе. Можете обозначить по другому.
E-Mail: arigato.freelance@gmail.com
|
![]() |
![]() |
![]() |
#18 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
![]()
Program Laba2;
Var A,PropuskCifr:Integer; Flag:Boolean; begin Write ('Введите делитель A: '); Readln (A); Flag:=True; for PropuskCifr:= 0 to 9 do if (5040+(PropuskCifr*100)+PropuskCifr ) mod A=0 then writeln ('Число ',(5040+(PropuskCifr*100)+PropuskCi fr),' кратно ',A); Flag:=False; if Flag then writeln ('Чмсла ненайдены') end. вот как надо с Флагом сделать чтоб еще выдавало что числа ненайдены |
![]() |
![]() |
![]() |
#19 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
![]()
ну помогите кто нить
|
![]() |
![]() |
![]() |
#20 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
![]()
вот так
Код:
Последний раз редактировалось vovk; 29.11.2008 в 14:44. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
запуск с параметром... | 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 |