#include<bits/stdc++.h>using namespace std;
int main(){ int n,a; cin>>n>>a; if(n % a == 0) cout<<"YES"; else cout<<"NO"}
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadSeqInteger(20).Where(t -> Abs(t) < 10)
.Aggregate(BigInteger(1), (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9</h3><h3>12157665459056928801 </h3>
1 дискета=1,44 мегабайт
игра имеет объём 92160 мегабайт
92160/1,44= <em><u>64000 дискет ...</u></em>
Var a,b:integer;
begin
write('Введите первое число:');
readln(a);
write('Введите второе число:');
readln(b);
writeln('Ответ:',(a*a+b*b)-a*b);
end.
Procedure CKR(var M,N:integer);
Var d:integer;
Begin
if M>N then d:=N
else d:=M;
While d>1 do
Begin
if (M mod d = 0)and(N mod d = 0) then
Begin
M:=M div d;
N:=N div d;
if M>N then d:=N
else d:=M
End;
d:=d-1
End;
End;
Var M,N:integer;
Begin
Write('M = ');ReadLn(M);
Write('N = ');ReadLn(N);
CKR(M,N);
WriteLn(M,'/',N);
End.