Даю 100 баллов,если решите 4.13-4.15 с полным решением!
Answers & Comments
vandyscheffsla
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.
Answers & Comments
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.