Question

Программист вводит с клавиатуры число a. Если оно положительное, то помещает в эту ячейку его квадрат, выводит текст «Оно положительное считали квадрат!» и запрашивает еще одно число, выводит его куб на экран. На последней строке выводит значение ячейки а. Код на PascalABC

Answer 1

Ответ:

var

 a,b:integer;

begin

 write('Число А - '); readln(a);

 if a mod 2 = 0 then begin

   writeln('Оно положительное считали квадрат!');

   write('Введите ещё одно число - '); readln(b);

   writeln('Куб числа ',b,' = ',sqr(b)*b);

   writeln('Квадрат числа ',a,' = ',sqr(a));

 end;

end.

Answer 2

Вот пример кода на PascalABC, который выполняет описанные вами действия:

program PositiveNumberOperations;

var
  a: integer;

begin
  writeln('Введите число a:');
  readln(a);
  
  if a > 0 then
  begin
    a := a * a;
    writeln('Оно положительное, считали квадрат!');
    
    writeln('Введите еще одно число:');
    readln(a);
    a := a * a * a;
  end;
  
  writeln('Значение ячейки a:', a);
end.

Этот код запрашивает у пользователя ввод числа `a`, затем проверяет, является ли оно положительным. Если оно положительное, то возводит его в квадрат, выводит сообщение и запрашивает еще одно число, возводит его в куб и выводит значение ячейки `a`.