
Модератор: Модераторы
var a, y: real;
begin
Write('Введите a: '); ReadLn(a);
if a>0 then y:=-sqr(a)/2+1 else y:=1+2*a;
WriteLn('y=', y);
end.
NTFS писал(а):Порой клиент готов последние трусы отдать, лишь бы получить заветные пять строчек кода к зачету.
NTFS писал(а):А дипломы заказывают, потому что это экономически целесообразно - за то время, которое они потратят на изучение и реализацию задания, они заработают гораздо больше, и часть этих денег отдадут профессионалу
Вернуться в Помощь за вознаграждение
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1