Даны 3 числа a, b, c. Если a

Question

Информатика

Акилина

23 августа, 03:51

Даны 3 числа a, b, c. Если a

+3

Ответы (1)

Знаете ответ на вопрос?

Ефимий · Answer 1

Program n1;

Uses CRT;

Const n=10;

Var a, b, c: integer;

begin

ClrScr;

Writeln ('Vvedite a, b i c') ;

Readln (a, b, c) ;

If (a
begin

a:=a*2;

b:=b*2;

c:=c*2;

end

else

begin

a:=abs (a) ;

b:=abs (b) ;

c:=abs (c) ;

end;

writeln;

Writeln (a, b, c) ;

readln

end.