PascalABC

Question

1 Дано трехзначное число. Выяснить является ли это число
четным и входит ли в него цифра 1.2 Найти сумму всех нечетных трехзначных чисел. Напишите пожалуйста программу, в паскале просто 0.

Александра · Accepted Answer

1.

var
n: integer;
begin
write('введите трехзначное число ');
readln(n);
if not odd(n) then writeln('число четное');
writeln('единица в число ');
if (n div 100 <> 1) and (n div 10 mod 10 <> 1) and (n mod 10 <> 1) then write('не ');
writeln('входит');
end.

2.

begin writeln((101 + (450 - 1)) * 450); end.