Консультации

люди помогиет написал код по логике все правильно вроде как прошло все кроме 1 и 4 подскажите что не так

люди помогиет написал код по логике все правильно вроде как прошло все кроме 1 и 4 подскажите что не так

от Daniil Matus -
Number of replies: 0
код
var
i,k,n,j:longint;
begin
read(k);
j:=k;
while (k mod 3<>0)and(k>=0)do
k:=k-5;
if k mod 3=0 then
i:=i+1;
while (j mod 5<>0)and(j>=0)do
j:=j-3;
if j mod 5=0 then
i:=i+1;
if i>0 then
write('YES')
else
write('NO');
end.