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

Ответы (1)

Эгам 23.09.2024 5

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;

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ