Дано некоторое число если оно четное уменьшить его в 2 раза,написать программу
Дано некоторое число если оно четное уменьшить его в 2 раза,написать программу
Гость
Ответ(ы) на вопрос:
Гостьprogram test;
var a:integer;
begin
read(a);
if a mod 2 =0 then
a:=a div 2;
write(a);
end.
Не нашли ответ?
Похожие вопросы