Louisввести целое число если оно четное разделить на 2, если не чётное возвести в квадратP. S Язык Паскаль
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
var x:integer;
var y:real;
begin
readln(x);
if x mod 2 = 0 then
y:= x/2
else
y:= x*x;
writeln(y);
end.
142
BeazerdanaЧтобы ответить необходимо зарегистрироваться.
