Помогите с ИКТ, 9 класс, Паскаль!

#1

Ввести число, если оно отрицательное, найти его квадрат и вывести результат, иначе вывести на экран число положительное.

#2

Ввести значение Х, вычислить значение Z, где Z=Х^2 (Х во второй степени) при х >0. Вывести результат

Question

Информатика

Бояна

29 июля, 14:27

Помогите с ИКТ, 9 класс, Паскаль!

#1

Ввести число, если оно отрицательное, найти его квадрат и вывести результат, иначе вывести на экран число положительное.

#2

Ввести значение Х, вычислить значение Z, где Z=Х^2 (Х во второй степени) при х >0. Вывести результат

+3

Ответы (1)

Знаете ответ?

Юраня · Answer 1

Var

A:real;

Begin

Write ('Введите число: ') ; ReadLn (A) ;

if A<0 then A:=A*A;

WriteLn (A)

End.

Var

X, Z:real;

Begin

Write ('X = ') ; ReadLn (X) ;

if X>0 then Z:=X*X;

WriteLn ('Z = ', Z) ;

End.