Сикт, 9 класс, паскаль! #1 ввести число, если оно отрицательное, найти его квадрат и вывести результат, иначе вывести на экран число положительное. #2 ввести значение х, вычислить значение z, где z=х^2 (х во второй степени) при х > 0. вывести результат

203

327

Посмотреть ответы 3

Ответы на вопрос:

bullet699

Информатика

4,7(92 оценок)

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.

sargsyantatev1

Информатика

4,5(59 оценок)

Решения должны работать на любом диалекте, хотя не №1 program task1; var a: integer; begin read(a); if a< 0 then begin write(sqr(a)); end else if a> 0 then begin write(a) end; end. №2 program task2; var x,z: integer; begin read(x); if x> 0 then begin z: =x*x; end; write(z); end. улучшенный вариант (работает под pascalabc.net последних обновлений): №1 begin var a: integer; read(a); if a< 0 then begin write(sqr(a)); end else if a> 0 then begin write(a) end; end. №2 begin var x: integer; read(x); if x> 0 then x*=x; write(x); //результат будет выведен в любом случае, вне зависимости от того, x> 0 или нет end.