Предмет: Информатика,
автор: Аноним
ЗАДАЧА ПО ИНФОРМАТИКЕ СРОЧНО ПОМОГИТЕ НАГРАДА 50 БАЛЛОВ
МОЖНО РЕШАТЬ ДОЛГО ЛИШЬ БЫ РЕШИТЬ
Приложения:

Ответы
Автор ответа:
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.
б)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
Предмет: Математика,
автор: lumixxne
Предмет: География,
автор: beret90
Предмет: Обществознание,
автор: Ilya11111111
Предмет: Физика,
автор: vladuxa38rus1