Складіть проект для побудови в одній системі координат графіків функцій у = 2*х + 60 і у = 4*х - 80. Використовуючи ці графіки, знайдіть наближене значення розв язку системі у = 2*х + 60
=
у = 4*х - 80

1.                                        

program raf105;

var abc,a,b,c: integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

abc:= c*100 + b*10 + a;

writeln('Число наоборот: ',abc);

end.

2.                                        

program raf105;

var abc,a,b,c: integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

abc:= b*100 + c*10 + a;

writeln('Первое число переместили в конец: ',abc);

end.

                                         PascalABC 3.4.2

а.                                              

program raf105;

var abcd,a,b,c,d,sum: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

sum:= a+b+c+d;

writeln('Сумма цифр: ',sum);

end.

в.                                              

program raf105;

var abcd,a,b,c,d: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

abcd:= a*1000 + c*100 + b*10 + d;

writeln('Вывод: ',abcd);

end.

г.                                              

program raf105;

var abcd,a,b,c,d: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

abcd:= c*1000 + d*100 + a*10 + b;

writeln('Вывод: ',abcd);

end.

                                              PascalABC 3.4.2