Даны два действительных числа x и y. Вычислить их сумму,
разность, произведение и частное. напишите программу в паскаль
Ответы на вопрос
Ответил HRAshton
0
var
x, y: real;
begin
readln(x, y);
writeln(x, ' + ', y, ' = ', x + y);
writeln(x, ' - ', y, ' = ', x - y);
writeln(x, ' * ', y, ' = ', x * y);
writeln(x, ' / ', y, ' = ', x / y);
end.
x, y: real;
begin
readln(x, y);
writeln(x, ' + ', y, ' = ', x + y);
writeln(x, ' - ', y, ' = ', x - y);
writeln(x, ' * ', y, ' = ', x * y);
writeln(x, ' / ', y, ' = ', x / y);
end.
Новые вопросы