NightSky95
Проверка числа на отрицательность: Паскаля нет, но могу дать код условия: переменные 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;
0 votes Thanks 1
NightSky95
Входит ли число в диапазон: 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;
Maylif
можешь написать сюда код всех трех заданий?
Answers & Comments
Паскаля нет, но могу дать код условия:
переменные 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;
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;