Вопрос от пользователя: Яким
Паскаль. Является ли число четным, если да, то делится ли оно на 10
Ответ: Феликс
Var x: integer;
begin writeln (‘Введите число:’); readln (x); if x mod 2 = 0 then begin writeln (‘Число является четным.’); if x mod 10 = 0 then writeln (‘Число делится на 10.’) else writeln (‘Число не делится на 10.’); end else writeln (‘Число не является четным’); end.
