program numb19;
Var a,b,c,d,e,f,g:integer;
Begin
Readln(a);
if a mod 2=0 then Writeln('da')
else Writeln('NO'); if a div 10 then Writeln('2 zn')
else Writeln('1 zn');
end.
в чём ошибка?
Var a,b,c,d,e,f,g:integer;
Begin
Readln(a);
if a mod 2=0 then Writeln('da')
else Writeln('NO'); if a div 10 then Writeln('2 zn')
else Writeln('1 zn');
end.
в чём ошибка?
More Questions From This User See All
Answers & Comments
if (a div 10)mod 10 <> 0 then....