Написать 2 программы на языке Pascal.

1 программа. Задано число x. Определить, является ли число x положительным или нет. Выдать на экран соответствующее сообщение.

2 программа. Дано три числа x, y, z. Вычислить сумму только положительных чисел из трех данных.

Подсказка:

1. Ввод исходных данных

2. Проверка условия x>0, если условие выполняется, то sum:=sum+x. Аналогично проверяются условия с y и z.

3. Вывод результата.

Скачай ниже ...

Программа 1.

program p1;

var x:integer;

begin

write ('x=') ;

read (x) ;

if x>0 then

writeln ('Число x положительное.') ;

if x=0 then

writeln ('Число x нейтральное.') ;

if x<0 then

writeln ('Число x отрицательное') ; end.

Программа 2.

program p2;

var x, y, z, s:real;

begin

write ('x=') ;

read (x) ;

write ('y=') ;

read (y) ;

write ('z=') ;

read (z) ;

if x>0 then

s:=s+x;

if y>0 then

s:=s+y;

if z>0 then

s:=s+z;

if x+y+z<=0 then

writeln ('Все числа отрицательные либо нейтральные. Операция невозможна.') ;

if x+y+z>0 then

writeln ('s=', s) ;

end.