Предмет: Информатика,
автор: диля22
ввести число если оно четное разделить его на 4 если не четное умножить на 5
Ответы
Автор ответа:
0
Var A : Integer;
Begin
Readln(A);
If Odd(A) then A:=A*5 else A:=A div 4;
Writeln(A);
end.
Begin
Readln(A);
If Odd(A) then A:=A*5 else A:=A div 4;
Writeln(A);
end.
Похожие вопросы
Предмет: Английский язык,
автор: Nimikim
Предмет: Химия,
автор: smirnovak992
Предмет: Геометрия,
автор: iryska07
Предмет: Математика,
автор: Аноним
Предмет: География,
автор: 20000106