ввести целое число если оно четное разделить на 2, если не чётное возвести в квадрат
P.S Язык Паскаль
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад