Помогите решить задачу:

Даны числа n1, n2, n3, n4. Те числа которые являются положительными, заменить нулями. (Язык программирования Pascal).

Question

Информатика

Архип

6 мая, 04:31

Помогите решить задачу:

Даны числа n1, n2, n3, n4. Те числа которые являются положительными, заменить нулями. (Язык программирования Pascal).

+5

Ответы (1)

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

Наля · Answer 1

Var n1, n2, n3, n4:real;

begin

writeln ('Введите n1, n2, n3, n4') ;

readln (n1, n2, n3, n4) ;

if n1>0 then n1:=0;

if n2>0 then n2:=0;

if n3>0 then n3:=0;

if n4>0 then n4:=0;

writeln (' n1 = ', n1, ' n2 = ', n2, ' n3 = ', n3, ' n4 = ', n4) ;

end.

Помогите решить задачу:Даны числа n1, n2, n3, n4. Те числа которые являются положительными, заменить нулями. (Язык программирования Pascal).

Помогите решить задачу:

Даны числа n1, n2, n3, n4. Те числа которые являются положительными, заменить нулями. (Язык программирования Pascal).