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

БекБека БекБека    2   18.09.2019 01:20    3

Ответы
ninachka1977 ninachka1977  07.10.2020 23:00
Var

a,b: integer;

begin 

read(a);

b:=a mod 2;

a:= (a-b) div 2;

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

end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика