Написать 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.

Скачай ниже