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

Question

Суморок

15 октября, 15:18

+1

Ответы (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.