Question

помогите написать на языке паскаля, очень прошу !

Answer 1

Проверка числа на отрицательность:
Паскаля нет, но могу дать код условия:
переменные a:integer;
условие проверки:
if a<0 then 
Writeln("Число отрицательное") 
else
Writeln("Число положительное");
end;

Входит ли число в диапазон:
a:integer;
b,c:integer;
begin
b:=-10;
c:=40;
if (a>=b) and (a<=c) then 
Writeln("Число входит в диапазон (-10:40)") else
Writeln("Число не входит в диапазон (-10:40)");
end;

Answer 2

Входит ли число в диапазон:
a:integer;
b,c:integer;
begin
b:=-10;
c:=40;
if (a>=b) and (a<=c) then
Writeln("Число входит в диапазон (-10:40)") else
Writeln("Число не входит в диапазон (-10:40)");
end;

Answer 3

можешь написать сюда код всех трех заданий?

Answer 4

или хотя бы второй задачи.