Помогите пожалуйста )Срочно! Задача в Pascal. Введенное число возводится в квадрат, если оно большее 0 или не меняется. Нужно программу ( подробно) и блок-схему.
программу подробно, т.е. с комментариями или что?
нет, просто от начала и до конца
а вот в условии задачи есть условие " или не меняется", где это отражено в программе? как вообще это выражение понять?
если чило больше нуля то на выходе его квадрат, если число меньше= нулю то оно не меняется, т.е. на выходе то же число
я поняла так, что если число не меняется, то его нужно возвести в квадрат
а когда число будет меняться?
вот это я и не понимаю
ну я поняла, что вот если мы ввели неотрицательное число, то мы возводим его в квадрат, иначе ничего с ним не делаем, т.е. не меняем. Но я могу быть не права
Var A:integer; begin writeln('Введи число'); readln(A); if A>=0 then begin A:=A*A; writeln(A); end; else writeln(A); readln; end.
Var n:integer; begin writeln('input n'); readln(n); if n>0 then begin n:=sqr(n); writeln('n=',n); end else writeln('n<=0'); <br>end. Думаю, с блок-схемой по программе проблем не будет.)