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

Question

Информатика

Виталий

1 декабря, 21:09

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

+3

Ответы (1)

Знаете ответ?

Пашуха · 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.