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

Question

Суморок

12 июня, 11:01

+4

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