помогите с задачками на турбо паскаль)

[Lacrimosa]

В общем задачки простые))
1. Написать программу нахождения среди чисел от 1 до 100 всех пар чисел, для которых их сумма равна их произведению)
2. Написать программу вычисления куба суммы всех четных чисел от 2 до 100)
3. Каждая бактерия делится на две через три минуты. В начальный момент имеется одна бактерия. Написать программу, определяющую, сколько будет бактерий через N минут)
4. Написать программу вывода на экран натуральных чисел от 1 до N в обратном порядке)
Нужно ну ооочень срочно) Буду благодарна всем, кто поможет)

[alex_fcsm]

Сообщение от Lacrimosa

В общем задачки простые))
4. Написать программу вывода на экран натуральных чисел от 1 до N в обратном порядке)
Нужно ну ооочень срочно) Буду благодарна всем, кто поможет)

uses crt;
var i,n:integer;

begin
clrscr;
writeln('Input n');
readln(n);
for i:=n downto 1 do
 write(i,' ');
readln;
end.

[alex_fcsm]

Сообщение от Lacrimosa

В общем задачки простые))
2. Написать программу вычисления куба суммы всех четных чисел от 2 до 100)

uses crt;
const Up=100;
      down=2;
var i:integer;
    sum:real;

begin
clrscr;
for i:=down to up do
 if i mod 2=0 then sum:=sum+i;
 writeln(sqr(sum)*sum);
readln;
end.

[alex_fcsm]

Сообщение от Lacrimosa

В общем задачки простые))
3. Каждая бактерия делится на две через три минуты. В начальный момент имеется одна бактерия. Написать программу, определяющую, сколько будет бактерий через N минут)

uses crt;
const T=3;
var kol,i:integer;

begin
clrscr;
writeln('Input time');
readln(kol);
i:=kol div T;
kol:=Round(exp(ln(2)*i));
writeln('Kol-vo:',kol);
readln;
end.

[alex_fcsm]

Сообщение от Lacrimosa

В общем задачки простые))
1. Написать программу нахождения среди чисел от 1 до 100 всех пар чисел, для которых их сумма равна их произведению)

uses crt;
var i,j:integer;
begin
clrscr;
writeln('------------');
for i:=1 to 100 do
 for j:=1 to 100 do
  if j*i=j+i then write(j,' ',i);
readln;
end.