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

Question

Кекеш

Информатика

20 сентября, 23:29

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

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Ruzia · Answer 1

var x, y, s, r, p, ch:real;

begin

readln (x, y);

s:=x+y;

r:=x-y;

p:=x*y;

ch:=x/y;

writeln ('summa=', s);

writeln ('raznost=', r);

writeln ('proizvedenie=', p);

writeln ('chastnoe=', ch);

end.