Даны целые числа а,b,c.сменить знак каждого числа и вывести результат на

bbcc2 bbcc2    1   13.09.2019 21:40    0

Ответы
Кираfox15 Кираfox15  10.08.2020 19:24
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика