Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2012, 17:13   #1
Vetal_1715
Пользователь
 
Регистрация: 17.10.2011
Сообщений: 11
По умолчанию из Pascal в Delphi

переделать из Паскаля в Делфи программу

Код:
program P1;
var
  a: array[1..256] of integer;
  i, n, p: integer;
begin
  readln(n);
  for i := 1 to n do readln(a[i]);
  p := 0;
  WriteLn('trebyenye chisla: ');
  for i := 1 to n do
    if i mod 2 = 0 then
      if a[i] mod 2 = 1 then
      begin
        writeln(a[i]);
        p := p + 1
      end;
  if p = 0 then WriteLn('nema');
  Readln
end.


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 24.05.2012 в 10:02.
Vetal_1715 вне форума Ответить с цитированием
Старый 23.05.2012, 17:26   #2
Noor
Участник клуба
 
Аватар для Noor
 
Регистрация: 01.11.2006
Сообщений: 1,051
По умолчанию

1.Оформите код подобающим образом. для этого есть # [ CODE][/CODE]
2.Что именно нужно реализовать в Delphi ? Ввод и отображение результата ?
Noor вне форума Ответить с цитированием
Старый 23.05.2012, 17:28   #3
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

А вы попробуйте в делфи вставить!
Может и переводить не надо
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Из Pascal в Delphi Slash_dy Фриланс 4 10.05.2011 19:14
Из Pascal в Delphi Baburek Фриланс 8 03.01.2011 17:01
Из Pascal в Delphi Nivil Помощь студентам 9 08.12.2007 18:58