База даних "Теорія та практика прикладного програмування"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?дем делить на два
repeat
r:=n mod d;
if n <>0 //n не делилось нацело на d
then d:=d+1;
until r=o
Labe2.Caption:=Edit1.Text;
if d=n
then
Label2.Caption:= Label2.Caption+- простое число
Label2.Caption:= Label2.Caption+ - обычное число
end;
end.