profile
Опубликовано 5 лет назад по предмету Информатика от sergo7415

Помогите, 7 вариант пж!

  1. Ответ
    Ответ дан Grobick
    для pascal abc
    var x,y,i:integer;
    begin
    readln(x,y);
    if x>0 then
    x:=x*x
    else
    x:=x*x*x*x;
    if y>0 then
    y:=y*y
    else
    y:=y*y*y*y;
    if i>0 then
    i:=i*i
    else
    i:=i*i*i*i;
    writeln(x,' ',y,' ',i);
    end.
Самые новые вопросы