Предмет:
ИнформатикаАвтор:
adalyno6gtНа Паскале
Var a,b,c,d,e:integer;
Begin
Read(a,b,c);
d:=a-b;
if (a>0) and (d<=0) then d:=d-1;
e:=d+c;
if (e>=0) and (d<0) then e:=e+1;
write(e);
End.
Автор:
stoutДобавить свой ответ
Предмет:
БиологияАвтор:
harrison83Ответов:
Смотреть
Предмет:
Українська моваАвтор:
edward912Ответов:
Смотреть
Предмет:
МатематикаАвтор:
armandoОтветов:
Смотреть