ШМ
Шахноза Мамадалиева

Запишите пожалуйста в Pascal/

#include
int main()
{
int x,x1,x2,x3,c,a,b;
cout<<"Vvedite a,b,c= ";
cin>>a>>b>>c;
x1=a+b;
if (x1<0) x1=x1*(-1);
x2=c-1;
if (x2<0) x2=x2*(-1);
x3=2*x2;
x=x1-x3;
if (x<0) x=x*(-1);
cout<<"x="<

Ольга
Ольга

Почти буквальный перевод:

var x,x1,x2,x3,c,a,b:integer;
begin
write('Vvedite a,b,c= ');
readln(a,b,c);
x1:=a+b;
if x1< 0 then x1:=-x1;
x2:=c-1;
if x2< 0 then x2:=-x2;
x3:=2*x2;
x:=x1-x3;
if x< 0 then x=-x;
write('x=',x);
readln
end.

Но исходный текст на С++ просто безобразно написан. То же самое на Pascal с превращением в более культурный вид:

var c,a,b:integer;
begin
write('Vvedite a,b,c= '); readln(a,b,c);
writeln('x=',abs(abs(a+b)-2*abs(c-1))); readln
end.

Андрей
Андрей

Если ещё актуально, пиши на почту, помогу.

Похожие вопросы
Помогите, пожалуйста, Pascal
Помогите пожалуйста с Pascal.
Pascal напишите пожалуйста программу?
помогите пожалуйста с задачей на pascal.
Помогите пожалуйста с PASCAL ABC
Подправьте пожалуйста код [Pascal]
Помагите пожалуйста с Pascal
Помогите пожалуйста решить в Pascal
Помогите пожалуйста с Pascal
Pascal!! Помогите, пожалуйста!