Question

Написати программу в Турбо Паскалі!Срочно! Дано два дійсних числа. Менше з них замінити півсумою цих чисел,а більше - їх добутком!

Answer 1

var a, b, s, p:real;

begin

readln(a,b);

s:=(a+b)/2;

p:=a*b;

if a<b

then begin

a:=s; b:=p;

end

else begin

a:=p; b:=s;

end;

writeln('a = ',a,'  b = ',b);

end.

Answer 2

Звісно, ось програма на Turbo Pascal, яка виконує вказані вами дії:

pascalCopy code
program ReplaceNumbers;
var
  num1, num2, smaller, larger, result: real;
begin
  writeln('Введіть перше дійсне число: ');
  readln(num1);
  
  writeln('Введіть друге дійсне число: ');
  readln(num2);
  
  if num1 < num2 then
  begin
    smaller := num1;
    larger := num2;
  end
  else
  begin
    smaller := num2;
    larger := num1;
  end;
  
  result := (smaller + larger) / 2;
  writeln('Менше число замінено півсумою: ', result:0:2);
  
  result := smaller * larger;
  writeln('Більше число замінено добутком: ', result:0:2);
  
  readln;
end.

Ця програма запитує користувача ввести два дійсних числа, знаходить менше та більше з них, замінює менше число півсумою цих чисел, а більше число - їх добутком. Результати виводяться на екран.

Будь ласка, помістіть цей код у середовище Turbo Pascal та запустіть його, щоб перевірити його працездатність.