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

Question

39

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

cacadu · Accepted Answer

87

cacadu

22 апреля 2023

1234567891011121314 procedure TForm1.Button1Click (Sender: TObject); vark,i,j: integer; begink: =10; for i: =1 to 90 do begin if (k mod 7)=0 then beginj: =j+1; stringgrid1.cells[1,i]: =inttostr (k); end; k: =k+1; end; label1.Caption: =inttostr (j); end;

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: