[fallen02]

Определить делителем каких чисел a,b,c,является число k. Программу напишите)))))если можно,то по подробней)

[SerginhoLD]

если число делится на К без остатка, то К является делителем, тут писать то нечего

[fallen02]

если бы нам показывали как такие примеры делать ,это тогда было бы легко,но нам даже похожих примеров не показывали,вот и немогу сделать(((

[ChinYan]

if a mod k = 0 then ShowMessage(IntToStr(k)+' - делитель для'+IntToStr(a));

[fallen02]

а можно всю прогу написать))))эту строку я знаю ,а как дальше делать хз,никак не работает прога((

[eXplorer]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,k:integer;
begin
a:=53; //тут как
b:=645; // я понял
c:=4232; //любые
k:=2; //числа
if a mod k = 0 then ShowMessage(IntToStr(k)+' - делитель для'+IntToStr(a)); //проверка a mod k 
if b mod k = 0 then ShowMessage(IntToStr(k)+' - делитель для'+IntToStr(b)); //проверка b mod k 
if c mod k = 0 then ShowMessage(IntToStr(k)+' - делитель для'+IntToStr(c)); //проверка c mod k 
end;
end.

[fallen02]

eXplorer спасибо большое!!!!!!!!!!)