Составить программы в Turbo Pascal. 1)Дано три точки A,B,C ** числовой оси.Найти длинну...

Question

Составить программы в Turbo Pascal. 1)Дано три точки A,B,C на числовой оси.Найти длинну отрезка AC и BC и их сумму. 2)Задано четыре целых числа a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.

Answer 1

первое

program proga;

uses crt;

var

a,b,c,x,y,z:integer;

begin

clrscr; 

writeln('Введите значения точек');

 readln(a);  readln(b); readln(c); 

x=b-c;

y=c-b;

z=x+y;

readln;

end.

второе

program proga;

uses crt;

var

a,b,c,x,y,z:integer;

begin

clrscr; 

 writeln('Введите 4 числа');

 readln(a);  readln(b); readln(c);   readln(x); readln(y);  

z=a*b*c*y*x;

if z>300 then

writeln('произведение этих чисел больше 300')

else

 writeln('произведение этих чисел меньше 300') ;

readln;

end.

и соответственно третье

program proga;

uses crt;

var

a:integer;

begin

clrscr; 

 writeln('Введите число');

 readln(a);

if a>0 then

a=a+1;

writeln(a) 

else

if a<0 then</p>

a=a-2;

writeln(a) 

 else

writeln('вы ввели 0');

readln;

end.