Английский, испанский,французкий
AND
(решено вручную подстановкой, очень плохой метод, иных, увы, не знаю)
Var
n:integer;
begin
Write('n = '); Read(n);
if (n mod 2=0) then Writeln('Число четное')
else begin
Write('Число нечетное и оно ');
if Abs(n mod 10)<>7 then Write('не ');
Writeln('оканчивается цифрой 7')
end
end.
<u>Примеры</u>
n = 3538
Число четное
n = 642301
Число нечетное и оно не оканчивается цифрой 7
n = 6306547
Число нечетное и оно оканчивается цифрой 7
n = -546347
Число нечетное и оно оканчивается цифрой 7
<span>Масштабирование в растровом редакторе не является его преимущественной стороной.</span>