Question

Решите пожалуйста ПАСКАЛЬ 1) Даны 2 числа. Если они имеют одинаковый знак (0 относим к положительным числам), найти их сумму, в противном случае произведение. 2) Даны 2 числа. Если число а лежит в диапазоне от 10 до 100, то найти произведение чисел a*b, иначе их частное a/b. Обработать исключительную ситуацию – деление на ноль. К задачам блок схему и программу.

Answer 1

1.

var a,b:integer;

begin

 readln(a,b);

 if (a*b>0) or ((a*b=0) and (a+b>=0)) then

   writeln('a+b: ',a+b)

     else

       writeln('a*b: ',a*b);      

end.

2.

var a,b:integer;

begin

 readln(a,b);

 if (a>=10) and (a<=100) then

   writeln(a*b)

     else

       if b=0 then

         begin

           writeln('a/0.Error');

           exit;

         end

           else

             writeln(a/b);

end.

Answer 2

Конечно, вот решение задач на языке Паскаль:

1. Задача на определение суммы или произведения в зависимости от знака чисел:

pascalCopy code
program Task1;
var
  a, b, result: real;
begin
  writeln('Введите два числа:');
  readln(a, b);

  if (a >= 0) and (b >= 0) then
    result := a + b
  else
    result := a * b;

  writeln('Результат: ', result);
end.

2. Задача на произведение или частное с проверкой диапазона и исключением деления на ноль:

pascalCopy code
program Task2;
var
  a, b, result: real;
begin
  writeln('Введите два числа:');
  readln(a, b);

  if b <> 0 then
  begin
    if (a >= 10) and (a <= 100) then
      result := a * b
    else
      result := a / b;

    writeln('Результат: ', result);
  end
  else
    writeln('Ошибка: деление на ноль!');
end.

Обратите внимание, что я написал код для консольного ввода/вывода. Если вы используете другую среду разработки, вам может потребоваться адаптировать этот код под неё.