If b%a==0: print ('YES')
Else: print ('NO')
begin
var n := ReadInteger;
if n mod 25 = 0 then
Println(25, n div 25)
else
begin
var (n1, n2) := (24, 25);
var r: integer;
repeat
for var i := 1 to n div n1 do
begin
r := (n - n1 * i) mod n2;
if r = 0 then
begin
Println(n1, i + (n - n1 * i) div n2);
exit
end;
end;
Dec(n1);
Dec(n2);
until n1 = 0;
end;
end.
===== PascalABC.NET =====
4 бит = 4/8 байт = 0,5 байт
1,5 Кб = 1,5*1024 = 1536 байт
Муж-учитель, жена-юрист, сын-слесарь, сестра мужа-инженер, отец жены-экономист