С клавиатуры вводится число а,в, и целое число х. Если х=0 а,в-real найти разность а-в,...

Question

С клавиатуры вводится число а,в, и целое число х. Если х=0 а,в-real найти разность а-в, 1-а*в, 2-х:integer a:в, в противном случае найти сумму.

Comments

Это паскаль?

---

Да

---

Можно вот єто нормально переписать: 2-х:integer a:в

---

С клавиатуры вводится число а,в, и целое число х. Если х=0 найти разность а-в, 1-п*в, 2-а:в, в противном случае найти сумму.

Answer 1

Program Numbers;
uses crt;
var x:integer;
a,b:real;
if (x=0) and (frac (a)>0) and (frac(b)>0) then 
writeln ("Result: ",a-b, ' ', 1-a*b,' ', 2-a/b)
else
writeln ("Summa ",a+b);
end.

Comments

Вроде бы правильно понял условие