Предмет: Информатика, автор: Аноним

ЗАДАЧА ПО ИНФОРМАТИКЕ СРОЧНО ПОМОГИТЕ НАГРАДА 50 БАЛЛОВ
МОЖНО РЕШАТЬ ДОЛГО ЛИШЬ БЫ РЕШИТЬ

Приложения:

Ответы

Автор ответа: Alex24241
0
а) 39
б)26
в)2

Вот программа на ABC Pascal
var
x,y:real;
begin
Readln(x);
if x<0 then y:=sqr(x)+1 else
if x>= 1 then y:= 4*x-1 else
y:=2*x+1;
Writeln(y);
end.
Похожие вопросы
Предмет: Математика, автор: efimgagus