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

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

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.12.2010, 15:26   #1
pr0kazn1k
 
Регистрация: 21.12.2010
Сообщений: 7
По умолчанию Задания

Необходима помощь! Delphi 7.
Вложения
Тип файла: doc задачи.doc (61.0 Кб, 24 просмотров)
pr0kazn1k вне форума Ответить с цитированием
Старый 21.12.2010, 16:10   #2
rubius2008
Форумчанин
 
Регистрация: 19.03.2010
Сообщений: 409
По умолчанию

Задач много, да и твоих наработок не видно, поэтому, если готов оплатить выполнение заданий пиши в асю 600-927-970
Есть вопросы, пишите в ЛС.
rubius2008 вне форума Ответить с цитированием
Старый 21.12.2010, 18:25   #3
Nikita++
Пользователь
 
Регистрация: 19.10.2010
Сообщений: 80
По умолчанию

R185534649338

Давай я кидаю 2 задачи сразу, остальные 5 после оплаты.
Ок?

Код:
program Number_8;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   i,j,m,n:integer;
begin
   readln(m,n);
   for i:=1 to m do
      for j:=1 to n do
         begin
            if (j<>n) then write(i*j,' ')
             else writeln(i*j);
         end;
   readln;
end.
Код:
program Number_10_;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   m,n,i,j,k:integer;
   a:array [1..100,1..100]of integer;
begin
   readln(m,n);
   k:=2;
   for i:=1 to m do
      for j:= 1 to n do
         begin
            if (odd(k)) then a[i,j]:=0
             else a[i,j]:=k div 2;
            if (j<>n)then write(a[i,j],' ')
             else writeln(a[i,j]);
            inc(k);
         end;
   readln;
end.

Последний раз редактировалось Stilet; 21.12.2010 в 19:21.
Nikita++ вне форума Ответить с цитированием
Старый 21.12.2010, 18:45   #4
Nikita++
Пользователь
 
Регистрация: 19.10.2010
Сообщений: 80
По умолчанию

Не ну выполняй условия договора! Че ты в асе молчишь, на кошельке я ничего не вижу
Nikita++ вне форума Ответить с цитированием
Старый 21.12.2010, 20:28   #5
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

ICQ: 421277094
e-mail: eoln@mail.ru
Недорого, в течении суток все 20 заданий.
eoln вне форума Ответить с цитированием
Старый 22.12.2010, 00:22   #6
Don Karleone
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 410
По умолчанию

Если актуально - обращайтесь.
ICQ в подписи.
ICQ: 593-013-807
Don Karleone вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
2 Задания GLAM2 Общие вопросы C/C++ 1 07.12.2010 18:51
задания на C# igor17 C# (си шарп) 3 18.11.2010 13:31
Задания BrosJke Общие вопросы Delphi 1 24.05.2010 07:24
3 задания Си nariku Помощь студентам 39 22.10.2009 15:43