Цитата:
|
Сообщение от marina1602
Линейные алгоритмы:
1)Заданы два целых числа k и d. Используя только арифметические операции, найдите целую и дробную части от деления k на d.
|
Код:
program calc;
var k, d, c: integer;
s: real;
begin
readln(k,d);
c:=trunc(k/d);
s:=k/d-c;
writeln('Целая часть от деления =',c,'; дробная часть от деления =',s);
end.