Ответ:
program TestN;
var
n: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
if (n >= 100) and (n <= 999) and (n mod 2 <> 0) then
WriteLn (N, ' является нечетным трехзначным числом.')
else
WriteLn (N, ' не является нечетным трехзначным числом.');
ReadLn;
end.
Объяснение:
Writeln('Введите число');
readln(n);
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program TestN;
var
n: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
if (n >= 100) and (n <= 999) and (n mod 2 <> 0) then
WriteLn (N, ' является нечетным трехзначным числом.')
else
WriteLn (N, ' не является нечетным трехзначным числом.');
ReadLn;
end.
Verified answer
Ответ:
Объяснение:
Writeln('Введите число');
readln(n);