|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.12.2009, 21:26 | #1 |
Новичок
Джуниор
Регистрация: 09.12.2009
Сообщений: 2
|
в заданном массиве вывести все четные числа
в заданном массиве вывести все
1)четные числа 2)простые числа где ошибка исправьте плиззз var b:boolean; i,j:integer; begin for i:=1 to nA do begin b:=true; repeat inc(j); if a[i]mod j=0 then b:=false; until b=false or j = i mod 2; if b=true then writeln (a[i]); end; end. |
09.12.2009, 21:53 | #2 |
Удален
Форумчанин
Регистрация: 02.12.2009
Сообщений: 309
|
Код:
|
09.12.2009, 22:08 | #3 |
Новичок
Джуниор
Регистрация: 09.12.2009
Сообщений: 2
|
спасибооо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В заданном массиве чисел упорядочить элементы | dolya2007 | Общие вопросы C/C++ | 0 | 01.05.2009 02:44 |
В двухмерном массиве все отрицательные элеметны заменить на их модули. А новый массив вывести на экран | JulLy | Паскаль, Turbo Pascal, PascalABC.NET | 11 | 28.04.2009 08:13 |
си четные числа | world12_tk | Помощь студентам | 3 | 18.03.2009 17:33 |
Как вывести все целые степени числа? | riorio07 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 20.05.2008 11:47 |