Написать программу в паскале: определить, четное число или нечетное, если четное - разделить на два и вывести результат на экран

PETR511 PETR511    3   23.09.2019 22:10    4

Ответы
zhalamine zhalamine  08.10.2020 13:28
Var a : integer;
begin
writeln('Введите число');
read(a);
if (a mod 2 = 0) then a:= a div 2 else a:=a;
writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика