Помогите решить задачу: Даны числа n1, n2, n3, n4. Те числа которые являются положительными, заменить нулями. (Язык программирования Pascal).
Помогите решить задачу:
Даны числа n1, n2, n3, n4. Те числа которые являются положительными, заменить нулями. (Язык программирования Pascal).
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы