Даны два числа.

@vostrik · Регистрация: 31.05.2011

Author24 — интернет-сервис помощи студентам

Даны два числа. Найти их сумму, разность, произведение, также частное от деления первого числа на второе.
PS. Помогите пожалуйста новичку, за ранее спасибо!!!!

@I2um1 · 30.09.2011, 16:37

Pascal

var x, y : real;
begin
   write('x = '); readln(x);
   write('y = '); readln(y);
   writeln('Сумма = ', x + y);
   writeln('Разность = ', x - y);
   writeln('Произведение = ', x * y);
   writeln('Частное = ', x / y);
end.

@Kostweb · 30.09.2011, 16:41

Pascal

var x, y : real;
begin
   write('x = '); readln(x);
   write('y = '); readln(y);
   writeln('Ñóììà = ', x + y);
   writeln('Ðàçíîñòü = ', x - y);
   writeln('Ïðîèçâåäåíèå = ', x * y);
   if y=0 then write('Íà íîëü äåëèòü íåëüçÿ!!!')
          else writeln('×àñòíîå = ', x / y);
end.

@vostrik 4 / 4 / 0 Регистрация: 31.05.2011 Сообщений: 25
		1
	Даны два числа. 30.09.2011, 16:22. Показов 6414. Ответов 2 Метки нет (Все метки) Даны два числа. Найти их сумму, разность, произведение, также частное от деления первого числа на второе. PS. Помогите пожалуйста новичку, за ранее спасибо!!!! 0

	30.09.2011, 16:41

Опции темы

Даны два числа.

Решение