Предмет: Информатика,
автор: KostikovBUKALOV
Паскаль! 8 класс! Пожалуйста!
Приложения:
Ответы
Автор ответа:
1
var f,y: real;
begin
readln(y);
if y>2 then f:=2
else if (y>0) and (y<=2) then f:=0
else f:=(-3)*y;
write('f(y)=',f);
end.
KostikovBUKALOV:
Большое спасибо!
Автор ответа:
0
var
y, f: real;
begin
read(y);
if y > 2 then
f := 3
else
if y > 0 then
f := 0
else
f := 3 * y;
write(f);
end.
Спасибо за поправки. В 6-й строчке, я так понимаю, всё-таки f := 2, а не f := 3 ?
Похожие вопросы