Дано число если даное число нечотное то умножить на 2 если даное число больше 7-ми то вычислить квадратный корень

Question

Феофил

9 июня, 03:32

+4

Ответы (1)

Знаете ответ на вопрос?

Филя · Answer 1

Паскаль:

var a:integer; begin ReadLn (a) ; if not (a mod 2 = 0) then WriteLn (a*2) ; if a > 7 then Writeln (Sqrt (a)) ; end.