Помогите пожалуйста!! ^^ Номер 1. Запросить число и вывести ** экран квадрат этого числа,...

Question

Помогите пожалуйста!! ^^
Номер 1.
Запросить число и вывести на экран квадрат этого числа, если оно окажется положительным или модуль этого числа, если оно отрицательно.

Comments

Pascal?

Answer 1

Код программы на Pascal:

var
  number: integer;
begin
  write('Введите число: ');
  read(number);
  if (number > 0) then
    writeln(number * number)
  else if (number < 0) then
    writeln(-number);
end.

Comments

Помоги мне плиз