Question

Написать 2 программы на языке Pascal. 1 программа. Задано число x. Определить, является ли число x положительным или нет. Выдать на экран соответствующее сообщение. 2 программа . Дано три числа x, y, z. Вычислить сумму только положительных чисел из трех данных. Подсказка: 1. Ввод исходных данных 2. Проверка условия x>0, если условие выполняется, то sum:=sum+x. Аналогично проверяются условия с y и z. 3. Вывод результата.

Answer 1

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

Answer 2

Программа 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.

Answer 3

Программа 1: Определение положительности числа x

program CheckPositive;
var
  x: integer;
begin
  writeln('Введите число x:');
  readln(x);
  
  if x > 0 then
    writeln('Число x положительное')
  else if x < 0 then
    writeln('Число x отрицательное')
  else
    writeln('Число x равно нулю');
end.

Программа 2: Вычисление суммы положительных чисел

program SumPositive;
var
  x, y, z, sum: integer;
begin
  writeln('Введите три числа x, y и z:');
  readln(x, y, z);
  
  sum := 0;
  
  if x > 0 then
    sum := sum + x;
  if y > 0 then
    sum := sum + y;
  if z > 0 then
    sum := sum + z;
  
  writeln('Сумма положительных чисел:', sum);
end.

Обе программы написаны на языке Pascal. В первой программе мы вводим число x и проверяем его положительность. Если x больше нуля, выводится сообщение "Число x положительное". Если x меньше нуля, выводится сообщение "Число x отрицательное". Если x равно нулю, выводится сообщение "Число x равно нулю".

Во второй программе мы вводим три числа x, y и z. Затем мы инициализируем переменную sum нулем и проверяем каждое из чисел на положительность. Если число положительное, то добавляем его к переменной sum. В результате получаем сумму положительных чисел и выводим её на экран.