Напишите программу, выводящую на экран монитора все счастливые двузначные числа, которые делятся на произведение своих

1

2

3

4

5

6

7

8

9

10

11

12

13

14 procedure TForm1. Button1Click (Sender: TObject) ;

var

k, i, j:integer;

begin

k:=10;

for i:=1 to 90 do begin

if (k mod 7) = 0 then begin

j:=j+1;

stringgrid1. cells[1, i]:=inttostr (k) ;

end;

k:=k+1;

end;

label1. Caption:=inttostr (j) ;

end;