Ответы
Ответ дал:
0
Ответ:
361
Программа:
// PascalABC.Net
var x, answer: integer;
begin
write('Введите x: ');
readln(x);
if x <= 0 then
answer := 0
else if x <= 1 then
answer := x;
if x > 1 then
answer := sqr(x);
writeln('Вывод: ', answer);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад