Решить в паскале!
Прошу помогите
Ответы
Ответ:
№1.
var x,y:integer; // это а)
begin
read(x);
if x<0 then begin
y:=x*x-5
end else
if x=0 then begin
y:=3
end else
if x>0 then begin
y:=x-3;
end;
print(y);
end.
var x,y:integer; // это б)
begin
read(x);
if x<-1 then begin
y:=abs(x)+2
end else
if x=-1 then begin
y:=1
end else
if x>-1 then begin
y:=x+1;
end;
print(y);
end.
№2.
var a,b:integer;
begin
read(a,b);
print(min(a,b));
end.
№3.
var a,b,c:integer;
begin
read(a,b,c);
print(min(a,b,c));
end.
№4.
var a:integer;
begin
read(a);
if a mod 2 = 0 then
print('четное') else
print('нечетное');
end.
№5.
var a:integer;
begin
read(a);
if a mod 7 = 0 then
print('является') else
print('не является');
end.
№6.
var a:integer;
begin
read(a);
if a mod 10 = 0 then
print('да') else
print('нет');
end.
Объяснение: