Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Даю 100 баллов,если решите 4.13-4.15 с полным решением!

Ответ оставил Гость

Program s;
4.13
Var n:integer;
begin
Writeln(Введите число);
readln(n);
if (n>=100) and (n<1000) then 
Writeln(Число является трёхзначным)
else
Writeln(Число не является трёхзначным);
end.

4.15
Program s;
Var n:integer;
begin
Writeln(Введите число);
Readln(n);
if n mod 2=0 then
Writeln(Число четное)
else 
writeln(Число не четное);
end.