Question

Задание 1.

Даны два действительных числа x и y. Вычислить их сумму, разность, произведение и частное.



Задание 2.

Описать операторы ввода и вывода данных.

Answer 1

var x, y: real;

begin

readln(x, y); // Ввод данных (оператор readln)

writeln(x + y); // Вывод данных (оператор writeln)

writeln(x - y); // Вывод данных (оператор writeln)

writeln(x * y); // Вывод данных (оператор writeln)

writeln(x / y); // Вывод данных (оператор writeln)

end.

Answer 2

var x,y,a,b,c: integer;

Var d:real;

Begin

read(x);

read(y);

a:=x+y;

b:=x-y;

c:=x*y;

d:=x/y;

Writeln(x,'+',y,'=',a);

Writeln(x,'-',y,'=',b);

Writeln(x,'*',y,'=',c);

Writeln(x,':',y,'=',d);

End.