Ответы и объяснения

  • Участник Знаний
2014-03-28T11:47:16+00:00
5 задача
n:integer;
begin
readln(n);
if n<0 then n:=n-2
else n:=n+1;
writeln(n);
readln;
end.
ну и 3 заодно)
readln(n);
if ((n mod 10)=1) then writeln('мы увидели',n,'галку');
if ((n mod 10)=2) or ((n mod 10)=3) or ((n mod 10)=4) then writeln('мы увидели',n,'галки');
if ((n mod 10)=5) or ((n mod 10)=6)or ((n mod 10)=7) or ((n mod 10)=8) or 
((n mod 10)=9) or ((n mod 10)=0)  then writeln('мы увидели',n,'галок');
readln;
end.