Как составить простую программу на Паскале, которая решает следующие задачи:

1. Дано число. Если оно четное, то возвести его в квадрат, если нечетное - в куб.
2. Вводятся 4 числа. Проверьте, равны ли они. Если да, то суммируйте их, если нет - ничего не выводите.

Информатика 7 класс Программирование на Паскале Паскаль программа на Паскале четные и нечетные числа возведение в степень проверка равенства чисел суммирование чисел информатика 7 класс Новый

Давайте разберем, как составить простую программу на языке Паскаль, которая решает две задачи, описанные вами.

Задача 1: Проверка числа на четность и возведение в степень.

Для решения первой задачи нам нужно:

1. Ввести число.
2. Проверить, четное ли оно.
3. Если четное, возвести его в квадрат, если нечетное - в куб.

Вот как может выглядеть код для этой задачи:

program EvenOdd;
var
    num: integer;
    result: integer;
begin
    writeln('Введите число:');
    readln(num);

    if num mod 2 = 0 then
        result := num * num  // Четное число, возводим в квадрат
    else
        result := num * num * num;  // Нечетное число, возводим в куб

    writeln('Результат: ', result);
end.

В этом коде мы используем оператор mod для проверки четности числа. Если остаток от деления на 2 равен 0, число четное.

Задача 2: Проверка равенства четырех чисел и их сумма.

Для решения второй задачи нам нужно:

1. Ввести четыре числа.
2. Проверить, равны ли все четыре числа.
3. Если равны, вывести их сумму.

Вот как может выглядеть код для этой задачи:

program CheckEquality;
var
    a, b, c, d: integer;
    sum: integer;
begin
    writeln('Введите четыре числа:');
    readln(a, b, c, d);

    if (a = b) and (b = c) and (c = d) then
    begin
        sum := a + b + c + d;  // Суммируем числа, если они равны
        writeln('Сумма: ', sum);
    end;
end.

В этом коде мы используем логический оператор and для проверки равенства всех четырех чисел. Если они равны, то выводим их сумму.

Теперь вы можете объединить оба кода в одну программу, если хотите, или использовать их отдельно для решения каждой задачи. Надеюсь, это поможет вам понять, как работать с Паскалем!