Информатика, опубликовано 2018-08-22 18:02:33 by Гость
Program myprg; var x,y: integer; begin writeln(x=); read (x); if (x>=0) then y:=0; if (x>0) and (x
Ответ оставил Гость
Program myprg;
var
x,y: integer;
begin
writeln(x=);
read (x);
if (x>=0) then y:=0;
if (x>0) and (xelse y:=sqr(sqr(x));
writeln (y=,y);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.