Составить программы в Turbo Pascal. 1)Дано три точки A,B,C на числовой оси.Найти длинну отрезка AC и BC и их сумму. 2)Задано четыре целых числа a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.
Ответы
первое
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
a=a-2;
writeln(a)
else
writeln('вы ввели 0');
readln;
end.