Предмет: Информатика,
автор: kotofey163
помогите пожалуйста, информатика. цикл. pascal
Приложения:
Ответы
Автор ответа:
2
program vld;
var
x, y : integer;
begin
read(x);
if x <= -15 then
y := 5 * sqr(x)
else
if (x<= 25) and (- 15 < x) then
begin
y := -x;
writeln(y);
end
else
y := - sqr(x)
end.
kotofey163:
спасибо большое
Похожие вопросы
Предмет: Математика,
автор: dimatoahenko
Предмет: Английский язык,
автор: annaischyk293
Предмет: Українська мова,
автор: nemcovmihail87
Предмет: Литература,
автор: ника1733
Предмет: Математика,
автор: Инесса234689