|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
19.06.2012, 13:22
|
#1 |
|
Пользователь
Регистрация: 04.05.2012
Сообщений: 17
|
программа
всем привет.
исправте пжл. ошибку в программе чтоб она заработала. очень надеюсь на вас. Sub my() rezalt = " Введите два числа" a = Cells(1, 1) i = 2 While Cells(i, 1) <> Empty If a <> Cells(i, 1) Then rezalt = "Всё возможные простые числа" i = i + 1 For j = 2 To i If (i Mod j = 0) Then MsgBox rezalt End If Next End Sub |
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Программа с применением записей и программа с применение множеств | smert99 | Помощь студентам | 0 | 16.06.2011 23:14 |
| Программа открыается если есть другая программа. | bookkc | Паскаль, Turbo Pascal, PascalABC.NET | 12 | 14.10.2009 20:09 |
| [PASCAL]Программа создания файла, программа обработки файла | Виколяшка | Фриланс | 7 | 23.09.2009 17:38 |
| Программа создания файла, программа обработки файла [PASCAL] | Виколяшка | Помощь студентам | 1 | 22.09.2009 22:56 |
