Написать программу для паскаль. С клавиатуры вводятся целые числа. Признаком конца ввода является 0. Изменить знак отрицательных чисел на противоположный. Результаты вывести на экран.

Question

Информатика

Дука

26 апреля, 06:03

Написать программу для паскаль. С клавиатуры вводятся целые числа. Признаком конца ввода является 0. Изменить знак отрицательных чисел на противоположный. Результаты вывести на экран.

+5

Ответы (2)

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

Тимося · Answer 1

Var n: integer;

s: string;

begin

writeln ('Вводите числа') ;

repeat

readln (n) ;

s: = s + IntToStr (abs (n)) + ' '

until n = 0;

writeln (s) ;

end.

Эразм · Answer 2

Предложу решение, основанное на том, что понял из текста)

var a: integer;

begin

writeln ('Вводите числа') ;

a:=1;

while a0 do begin

readln (a) ;

if a<0 then writeln ('Противоположное число ', abs (a)) ;

end;

readln

end.

Можно их в массив записывать, если нужно вывести красиво.