Задания

[pr0kazn1k]

Необходима помощь! Delphi 7.

[rubius2008]

Задач много, да и твоих наработок не видно, поэтому, если готов оплатить выполнение заданий пиши в асю 600-927-970

[Nikita++]

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.

[Nikita++]

Не ну выполняй условия договора! Че ты в асе молчишь, на кошельке я ничего не вижу

[eoln]

ICQ: 421277094
e-mail: eoln@mail.ru
Недорого, в течении суток все 20 заданий.

[Don Karleone]

Если актуально - обращайтесь.
ICQ в подписи.