Напишите программу, выводящую на экран монитора все счастливые двузначные числа, которые делятся на произведение своих
Напишите программу, выводящую на экран монитора все счастливые двузначные числа, которые делятся на произведение своих
Гость
Ответ(ы) на вопрос:
Гость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;
Не нашли ответ?
Похожие вопросы