Кто может перевести в visual basic? буду
program for35;
var
ak,ak1,ak2, ak3 : real;
n, i : integer;
begin
write('введите n: ');
readln(n);
writeln('значения функции: ');
writeln('a(1)=1');
writeln('a(2)=2');
writeln('a(3)=3');
ak1: =1;
ak2: =2;
ak3: =3;
for i: =4 to n do
begin
ak: =ak3+ak2-2*ak1;
writeln('a(',i,')=',ak);
ak1: =ak2;
ak2: =ak3;
ak3: =ak;
end;
end.

Задача, аналогичная той, которую публиковали вчера. Только цикл repeat заменяем на while.

Сначала немного математики.

О модуле тут смысла нет говорить, поскольку все an - суть положительные величины на интервале (0;1).

uses Crt;

function ai(n:integer):real;
var
  i:integer;
  p:real;
begin
  p:=1;
  for i:=n+1 to 2*n do p:=p*i;
  ai:=1/p
end;

var
  i:integer;
  eps,s,an:real;
begin
  ClrScr;
  Write('eps='); Read(eps);
  s:=0; i:=1; an:=eps+1;
  while an>=eps do begin
     an:=ai(i);
     if an>=eps then begin s:=s+an; Inc(i) end
  end;
  Writeln('s=',s);
  ReadKey
end.

Тестовые решения:
eps=0.07
s= 5.8333333333E-01

eps=0.000001
s= 5.9229647667E-01

eps=1e-8
s= 5.9229653448E-01

Для контроля результата можно отметить, что сумма первых 1000 членов ряда равна приблизительно 5.922965365Е-01

Если раздражает наличие функции, можно и без нее:
uses Crt;

var
  i,j:integer;
  eps,s,an,p:real;
begin
  ClrScr;
  Write('eps='); Read(eps);
  s:=0; i:=1; an:=eps+1;
  while an>=eps do begin
    p:=1;
    for j:=i+1 to 2*i do p:=p*j;
    an:=1/p;
    if an>=eps then begin s:=s+an; Inc(i) end
  end;
  Writeln('s=',s);
  ReadKey
end.

gnezdo = list(map(int, input().split()))

brusok = list(map(int, input().split()))

plosh_gnezdo = gnezdo[0] * gnezdo[1]

plosh_brusok = brusok[0] * brusok[1]

if plosh_gnezdo<plosh_brusok or plosh_gnezdo>plosh_brusok:

   print("Не подойдет")

else:

   print("В самый раз!")

Объяснение:

Найдем площадь контактной поверхности и сравним их. Если контактная площадь равна, то выводим "В самый раз!" . Если не равны "Не подойдет"

Пример входных данных:

Вход:                                        Выход:

3 2                                             В самый раз!

2 3

1 4                                              Не подойдет

5 6