Thetagamand
6 год назад
Дано целое число. Если оно отрицательное, то вывести на экран его модуль, иначе напечатать его удвоенное значение.Пожалуйста, срочно надо❤️
ОТВЕТЫ
Dimitr
Oct 24, 2020
Var A:integer;
Begin
WriteLn('Введите целое число');
ReadLn(A);
if A<0 then Write(abs(A))
else Write(A*2)
End.
Begin
WriteLn('Введите целое число');
ReadLn(A);
if A<0 then Write(abs(A))
else Write(A*2)
End.
208
Смежные вопросы:
