Любое составное натуральное число K можно разложить на множители (например: 6=2*3; 220=2*2*5*11). Петя заинтересовался

разложением чисел на множители. Но среди всех чисел он выделяет

лишь те числа, в разложении которых встречаются только 3, 5 и 7 (например:

45=3*3*5; 49=7*7). Весь вечер он вычислял и получил, что самое первое число, в

разложении которого присутствуют только числа 3, 5 и 7 это число 9, следующее

число 15, затем 21. Петя начал строить ряд таких чисел. Он нашёл первые 10

чисел своего ряда: 9, 15, 21, 25, 27, 35, 45, 49, 63, 75. Петя не хочет

останавливаться на достигнутом и решил найти 200 чисел. Составьте программу,

которая Пете.

ответ:

на форму поставил компонент memo

в edit1 и edit2 вводим значения строк и столбцов

для цикла for i: = for j: =

на кнопке следующий код

объяснение:

procedure tform1.button1click(sender: tobject);

  var i,j: integer; s: string;

begin

  a: = strtoint(edit1.text);

  b: = strtoint(edit2.text);

    for i: = 1 to a do begin

          s: = '';

    for j: = 1 to b do

      s: = s+'   '+inttostr(i*j);

      memo1.lines[i-1]: = s;

    end;

end;

ответ: окей

объяснение:

для квадрата:

procedure tform1.button1click(sender: tobject);

var

a,b,c,d,p,s: real;

begin

a: =2; b: =2; c: =2; d: =2;

if ((a=b)and(c=d)and(a=d))then

begin

p: =(a+b+c+d)/2;

s: =sqrt((p-a)*(p-b)*(p-c)*(p-d));

showmessage('s='+floattostr(s));

end else showmessage('это не квадрат');

end;

для треугольника:

procedure tform1.button1click(sender: tobject);

var

a,b,c,p,s: real;

begin

a: =2; b: =2; c: =3;

if (abs(a-b)

begin

p: =(a+b+c)/2;

s: =sqrt(p*(p-a)*(p-b)*(p-c));

edit1.text: =floattostr(s);

end else showmessage('не треугольник');

end;