Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад