Даны два числа - С иК. Вывести на печать их разность, если целая часть их отношения равна нулю, в противном случае вывести на печать их сумму.

Question

Кулайша

19 мая, 06:36

+5

Ответы (1)

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

Юниор · Answer 1

Var

c, k:real;

begin

Write ('Введите C и K: ') ;

Readln (c, k) ;

If Int (c/k) = 0 then Writeln (c-k)

else Writeln (c+k)

end.