Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
var

a,b: integer;

begin 

read(a);

b:=a mod 2;

a:= (a-b) div 2;

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

end.
800
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам