Помогите, прошу.Паскаль.
Определите, является ли заданное число А четным трехзначным числом.

Var a: integer;
begin
write(Введите a: );
read(a);
if (a mod 2 = 0) and (a>99) and (a<1000) then
writeln(Является.) else writeln(Не является.); end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!