Предмет: Информатика,
автор: Аноним
уменьшите данное число (х) в 2 раза если оно четное!информатика
Ответы
Автор ответа:
0
var
x:integer;
begin
readln(x);
if x mod 2=0 then x:=x div 2;
writeln(x);
end.
x:integer;
begin
readln(x);
if x mod 2=0 then x:=x div 2;
writeln(x);
end.
Похожие вопросы
Предмет: Математика,
автор: omelnik647
Предмет: Другие предметы,
автор: Аноним
Предмет: Физика,
автор: Аноним
Предмет: Химия,
автор: nurlykhan001
Предмет: Математика,
автор: shkodanatali