Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите, пожалуйста, программы для паскаля, вот эти, что на картинке:

Ответ оставил Гость

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;