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

Question

Информатика

Ладимир

7 ноября, 18:00

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

+5

Ответы (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.