Даны целые числа а,b,c.Сменить знак каждого числа и вывести результат на экран!!!!
ПОЖАЛУЙСТА ПОМОГИТЕ
Ответы
Ответ дал:
0
var a, b, c: Integer;
begin
readln(a);
readln(b);
readln(c);
if a>0 then a:= (a-(a*2)) else a:= Abs(a);
if b>0 then b:= (b-(b*2)) else b:= Abs(b);
if c>0 then c:= (c-(c*2)) else c:= Abs(c);
writeln('a = ',a, ', b = ', b, ', c = ', c);
end.
begin
readln(a);
readln(b);
readln(c);
if a>0 then a:= (a-(a*2)) else a:= Abs(a);
if b>0 then b:= (b-(b*2)) else b:= Abs(b);
if c>0 then c:= (c-(c*2)) else c:= Abs(c);
writeln('a = ',a, ', b = ', b, ', c = ', c);
end.
Ответ дал:
0
спасибоооо))))))))))))))
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад