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.

в чём ошибка?

Правильный ответ на вопрос 👍 «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 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!