|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.11.2008, 21:40 | #11 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
Program Laba2;
{Работу выполнил} Var A,I: Integer; begin Write ('Введите делитель A: '); Readln (A); for A:= 0 to 9 do if A |
19.11.2008, 21:51 | #12 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,554
|
Цитата:
Я не думаю, что стоит приводить решение за Вас. Ваши знания, судя по всему, близки к 0. Изучите соответствующую литературу, рассмотрите примеры, тогда продолжим беседу. E-Mail: arigato.freelance@gmail.com
|
|
19.11.2008, 23:21 | #13 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
Program Laba2;
{‚лЇ®«*Ё« ђ®¬**®ў Ђ*в®*} Var A,I: Integer; begin Write ('Введите делитель A: '); Readln (A); for A:= 0 to 9 do if A в правильном направлении? |
20.11.2008, 00:26 | #14 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,554
|
Нет, цикл по I.
E-Mail: arigato.freelance@gmail.com
|
20.11.2008, 09:42 | #15 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
почему по I, и что I обозначает?
|
20.11.2008, 09:58 | #16 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
Потому что A у вас число на которое будите делить а вы ему 0 присвоили в первое прохождение, 1 во второе и так до 9
И судя по всему даже не запускали, и дальше не писали иначе уже бы на ошибку жаловались. Последний раз редактировалось vovk; 20.11.2008 в 10:04. |
20.11.2008, 09:58 | #17 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,554
|
I - пропущенная цифра в числе. Можете обозначить по другому.
E-Mail: arigato.freelance@gmail.com
|
27.11.2008, 18:32 | #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. вот как надо с Флагом сделать чтоб еще выдавало что числа ненайдены |
29.11.2008, 10:16 | #19 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
ну помогите кто нить
|
29.11.2008, 14:40 | #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 |