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

Question

Информатика

Дука

27 марта, 11:20

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

+4

Ответы (2)

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

Эразм · Answer 1

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

var a: integer;

begin

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

a:=1;

while a0 do begin

readln (a) ;

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

end;

readln

end.

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

Тимося · Answer 2

Var n: integer;

s: string;

begin

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

repeat

readln (n) ;

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

until n = 0;

writeln (s) ;

end.