Program znaniacom Var a, b:longint; Begin WriteLn('Введите нат. число n'); ReadLn(a); WriteLn('Введите нат. число k'); ReadLn(b); Case (a mod b) of 0: writeLn('Число n делится на число k') Else writeLn('Число n НЕ делится на число k'); End; Sleep(2000); End.
Var a, b:longint;
Begin
WriteLn('Введите нат. число n');
ReadLn(a);
WriteLn('Введите нат. число k');
ReadLn(b);
Case (a mod b) of
0: writeLn('Число n делится на число k')
Else writeLn('Число n НЕ делится на число k');
End;
Sleep(2000);
End.