Ishnlmeena
4 год назад
Пожалуйста посчитайте с ИКТ, 9 класс, Паскаль!#1Ввести число, если оно отрицательное, найти его квадрат и вывести результат, иначе вывести на экран число положительное.#2Ввести значение Х, вычислить значение Z, где Z=Х^2 (Х во второй степени) при х >0. Вывести результат
ОТВЕТЫ
Sullivan Peter
Oct 24, 2020
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.
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.
826
Смежные вопросы:
