program numb19; Var a,b,c,d,e,f,g:integer; Begin Readln(a); if a mod 2=0 then

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.
в чём ошибка?

Задать свой вопрос
1 ответ
If a div 10 ???? нет условия. нужно
if (a div 10)mod 10 lt;gt; 0 then....
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт