Написать программу, которая находит целую часть и остаток от деления целого числа на 2

Question

Фервуфа

2 апреля, 03:14

+4

Ответы (1)

Знаете ответ на вопрос?

Аксюха · Answer 1

Var

a, b: integer;

begin

read (a) ;

b:=a mod 2;

a: = (a-b) div 2;

write ('Остаток от деления: ', b,' Целая часть: ', a) ;

end.