Напишите, пожалуйста, программы для паскаля, вот эти, что на картинке:
Answers & Comments
NightSky95
A:integer; begin if a>0 then writeln("Число положительное") else writeln("Число отрицательное"); end;
Входит ли число в диапазон: a:integer; b,c:integer; begin b:=7; c:=120; if (a>=b) and (a<=c) then Writeln("Число входит в диапазон (7:120)") else Writeln("Число не входит в диапазон (7:120)"); end;
Answers & Comments
begin
if a>0 then
writeln("Число положительное") else
writeln("Число отрицательное");
end;
Входит ли число в диапазон:
a:integer;
b,c:integer;
begin
b:=7;
c:=120;
if (a>=b) and (a<=c) then
Writeln("Число входит в диапазон (7:120)") else
Writeln("Число не входит в диапазон (7:120)");
end;