Решаем задачи Абрамян на Паскале. Begin 10

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

Решение:

program Begin10;
var
  a,b,Sum,Difference, Product, Quotient: Real;
begin
  Write('Введите число a: ');
  Readln(a);
  Write('Введите число b: ');
  Readln(b);
  Sum:=sqr(a)+sqr(b);
  Writeln('Сумма квадратов a и b равна: ',Sum);
  Difference:=sqr(a)-sqr(b);
  Writeln('Разность квадратов a и b равна: ',Difference);
  Product:=sqr(a)*sqr(b);
  Writeln('Произведение квадратов a и b равна: ',Product);
  Quotient:=sqr(a)/sqr(b);
  Writeln('Частное квадратов a и b равна: ',Quotient);
end.

program Begin10;

var

a,b,Sum,Difference, Product, Quotient: Real;

begin

Write('Введите число a: ');

Readln(a);

Write('Введите число b: ');

Readln(b);

Sum:=sqr(a)+sqr(b);

Writeln('Сумма квадратов a и b равна: ',Sum);

Difference:=sqr(a)-sqr(b);

Writeln('Разность квадратов a и b равна: ',Difference);

Product:=sqr(a)*sqr(b);

Writeln('Произведение квадратов a и b равна: ',Product);

Quotient:=sqr(a)/sqr(b);

Writeln('Частное квадратов a и b равна: ',Quotient);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Комментарии 1

//pascalABC.net
function SSPQ(a,b:real):=(a*a+b*b,a*a-b*b,a*a*b*b,a*a/(b*b));
begin
  var a,b:real;
  repeat
    (a,b):=ReadlnReal2('введите два ненулевых числа:');
  until (a<>0) and (b<>0);
  var (Sum,Dif,Prod,Quot):=SSPQ(a,b);
  write('сумма квадратов = ',Sum,newline,'разность квадратов = ',Dif,newline,
        'произведение квадратов = ',Prod,newline,'частное квадратов = ',Quot);
end.

//pascalABC.net

function SSPQ(a,b:real):=(a*a+b*b,a*a-b*b,a*a*b*b,a*a/(b*b));

var a,b:real;

repeat

(a,b):=ReadlnReal2('введите два ненулевых числа:');

until (a<>0) and (b<>0);

var (Sum,Dif,Prod,Quot):=SSPQ(a,b);

write('сумма квадратов = ',Sum,newline,'разность квадратов = ',Dif,newline,

'произведение квадратов = ',Prod,newline,'частное квадратов = ',Quot);

Ответить

Решаем задачи Абрамян на Паскале. Begin 10

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ