Ответы
Ответ дал:
0
var
a,b: integer;
begin
read(a);
b:=a mod 2;
a:= (a-b) div 2;
write ('Остаток от деления: ',b,' Целая часть: ',a);
end.
a,b: integer;
begin
read(a);
b:=a mod 2;
a:= (a-b) div 2;
write ('Остаток от деления: ',b,' Целая часть: ',a);
end.
tylig:
если что pascal
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
2 года назад
2 года назад
7 лет назад