Question

Написать программу в паскале Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.

Answer 1

Var a,b,sym,raz,proiz,chast:integer;
begin
writeln ('a,b'); readln (a,b);
sym:=a+b;
raz:=a-b;
proiz:=a*b;
chast:=a/b;
writeln(sym,raz,proiz,chast);
end.

Answer 2

Program proga;
uses crt;
var a,b,c,d,e: integer;
f: real;
begin
writeln(‘Введите два числа’);
readln(a);
readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln(‘Сумма чисел ‘, c);
writeln(‘Разность ‘,d);
writeln(‘Произведение ‘,e);
writeln(‘Частное ‘,f);
end.

Answer 3

Программа на языке Паскаль для нахождения суммы, разности, произведения и частного двух ненулевых чисел:

program ArithmeticOperations;

var
  a, b, sum, difference, product, quotient: real;
  
begin
  // Ввод двух чисел
  writeln('Введите первое число: ');
  readln(a);
  writeln('Введите второе число: ');
  readln(b);
  
  // Вычисление суммы, разности, произведения и частного
  sum := a + b;
  difference := a - b;
  product := a * b;
  quotient := a / b;
  
  // Вывод результатов
  writeln('Сумма: ', sum);
  writeln('Разность: ', difference);
  writeln('Произведение: ', product);
  writeln('Частное: ', quotient);
  
  readln;
end.

Пользователю будет предложено ввести два ненулевых числа. Затем программа вычислит сумму, разность, произведение и частное этих чисел и выведет результаты на экран.