Предмет: Информатика,
автор: AriTmir
СРОЧНО!!! Составьте программу на Паскаль, которая, введенное с клавиатуры число, возведёт в куб, если оно положительное, если отрицательное найдет его модуль, а если оно будет равно 0, то прибавить к нему 10.
Ответы
Автор ответа:
1
Ответ:
var x, result: integer;
begin
readln(x);
if (x > 0) then
result := sqr(x)*x
else if (x < 0) then
result := abs(x)
else if (x = 0) then
result := x + 10;
writeln(result);
end.
Интересные вопросы
Предмет: Русский язык,
автор: vavasa
Предмет: Русский язык,
автор: Окайка
Предмет: Русский язык,
автор: Катюн31
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: ofyivfy