|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.12.2009, 22:58 | #1 |
Новичок
Джуниор
Регистрация: 01.12.2009
Сообщений: 1
|
из паскаля в бейсик
из паскаля в бейсик программку переделать помогите))
ПОМОГИТЕ ПЖЛ • Var m: Set Of Byte; • i,k,n: Integer; • Begin • Writeln (' введите размер промежутка (до 255) '); • Readln(n) ; • m:=[2..n]; {начальное значение} • For k:=2 To n Div 2 Do {перебираем все делители } • For i:=2 To n Do • If (i Mod k=0) And (i<>k) Then m:=m-; • {если число кратно делителю и отлично от него, то удаляем его} • For i:=1 To n Do If i In m Then Write(i:3); • (распечатаем оставшиеся элементы } • Readln; • End. КТО РАЗБИРАЕТСЯ ПОМОГИТЕ ПЖЛ)) НАДО С ПАСКАЛЯ НА БЕЙСИК)) |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
V бейсик | WWWTED | Помощь студентам | 3 | 28.11.2009 20:14 |
задачи по бейсик | Gmen | Фриланс | 3 | 18.11.2009 16:10 |
Бейсик | olga_miner | Помощь студентам | 2 | 04.03.2009 13:35 |