1. Даны три действительных числа. Возвести в квадрат те из них, значения которых...

Question

1. Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень – отрицательные.
2. Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.
3. Написать программу, которая по данному числу (1-12) выводит название соответствующего ему месяца.

Answer 1

{ Ответ дан на языке Pascal }
// 1-ая задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  n1, n2, n3: INTEGER;

BEGIN
  WRITE('Введите 3 числа: ');
  READ(n1, n2, n3);

  IF n1 < 0
  THEN n1 := n1 * n1 * n1 * n1
  ELSE n1 := n1 * n1;

  IF n2 < 0
  THEN n2 := n2 * n2 * n2 * n2
  ELSE n2 := n2 * n2;

  IF n3 < 0
  THEN n3 := n3 * n3 * n3 * n3
  ELSE n3 := n3 * n3;

  WRITELN(n1);
  WRITELN(n2);
  WRITELN(n3);
END.

//2-ая задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  num: INTEGER;
  n1, n2, n3: INTEGER;

BEGIN
  WRITE('Введите 3-значное число: ');
  READ(num);

  n1 := (num DIV 100);
  n2 := (num MOD 100 MOD 10);
  n3 := (num MOD 100 DIV 10);
  IF(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)
  THEN WRITELN('Равен')
  ELSE WRITELN('Не равен');
END.

//3-я задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  num: INTEGER;

BEGIN
  WRITE('Введите месяц (1 - 12): ');
  READ(num);
  CASE num
  OF
    1: WRITELN('Январь');
    2: WRITELN('Февраль');
    3: WRITELN('Март');
    4: WRITELN('Апрель');
    5: WRITELN('Май');
    6: WRITELN('Июнь');
    7: WRITELN('Июль');
    8: WRITELN('Август');
    9: WRITELN('Сентябрь');
    10: WRITELN('Октябрь');
    11: WRITELN('Ноябрь');
    12: WRITELN('Декабрь');
  END;
END.