Question

Программирование паскаль. Даны два целых числа а,в. Если в меньше 50, то Найдите их произведение и разность. СРОЧНО!!!!

Answer 1

Ответ:

Var a, b, c, d : Integer;

Begin

Write("Vvedite a:"); Readln(a);

Write("Vvedite b:"); Readln(b);

if b < 50 then

begin

c := a * b;

d := a - b;

end;

Writeln("Proizvedeniye ravno", c);

Writeln("Raznosty ravna", d);

readln();

end.

Объяснение:

Я смог помочь?!

Answer 2

Конечно, вот пример кода на Pascal, который выполняет указанные действия:

pascalCopy code
program MultiplyAndSubtract;
var
  a, b, product, difference: integer;
begin
  writeln('Введите два целых числа:');
  readln(a, b);
  
  product := a * b;
  difference := a - b;
  
  if b < 50 then
  begin
    writeln('Произведение чисел: ', product);
    writeln('Разность чисел: ', difference);
  end
  else
    writeln('Число b больше или равно 50, произведение и разность не вычисляются.');
end.

Вы можете вставить этот код в среду разработки Pascal (например, Free Pascal) и выполнить его. Программа попросит вас ввести два целых числа. Если второе число (b) меньше 50, то программа вычислит и выведет их произведение и разность. В противном случае программа сообщит, что вычисления не выполняются, так как b больше или равно 50.