var b,A: integer;
begin
writeln('Введите значение A: ');
readln(A);
if A>0 then
b:=A+5;
writeln('b = ',b);
end
else
if A<=0 then
b:=sqr(A)-1;
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var b,A: integer;
begin
writeln('Введите значение A: ');
readln(A);
if A>0 then
begin
b:=A+5;
writeln('b = ',b);
end
else
if A<=0 then
begin
b:=sqr(A)-1;
writeln('b = ',b);
end;
end.