Как можно найти сумму четырех целых чисел, которые кратны трем, без использования цикла? Напишите решение на Паскале. За это дам 20 баллов!

Информатика 11 класс Функциональное программирование сумма целых чисел кратные трем Паскаль решение без цикла информатика 11 класс Новый

Чтобы найти сумму четырех целых чисел, которые кратны трем, без использования цикла, мы можем воспользоваться простым подходом, используя оператор ввода и условия. В этом случае мы будем проверять каждое из введенных чисел на кратность трем и суммировать только те, которые удовлетворяют этому условию.

Вот шаги, которые мы выполним:

1. Объявим переменные для хранения четырех чисел и их суммы.
2. Считаем каждое число, проверяя его кратность трем.
3. Если число кратно трем, добавляем его к сумме.
4. Выводим итоговую сумму.

Теперь давайте напишем код на Паскале:

program SumOfMultiplesOfThree;
var
    a, b, c, d, sum: integer;
begin
    sum := 0;  { Инициализируем сумму нулем }

    { Вводим четыре числа }
    write('Введите первое число: ');
    readln(a);
    write('Введите второе число: ');
    readln(b);
    write('Введите третье число: ');
    readln(c);
    write('Введите четвертое число: ');
    readln(d);

    { Проверяем каждое число на кратность трем и суммируем }
    if a mod 3 = 0 then
        sum := sum + a;
    if b mod 3 = 0 then
        sum := sum + b;
    if c mod 3 = 0 then
        sum := sum + c;
    if d mod 3 = 0 then
        sum := sum + d;

    { Выводим результат }
    writeln('Сумма чисел, кратных трем: ', sum);
end.

В этом коде мы используем оператор mod для проверки кратности чисел. Если остаток от деления числа на 3 равен нулю, значит, число кратно 3, и мы добавляем его к общей сумме. В конце мы выводим результат на экран.