27 Просмотров

Задание:

Найти произведение чисел от 10 до 50 кратных 9. Язык программирования ABC Paskal

Ответ на задание:

PROGRAM ProductOfMultiplesOf9;

BEGIN
  VAR
    i: INTEGER;
    product: INTEGER := 1;
  BEGIN
    FOR i := 10 TO 50 DO
      IF i MOD 9 = 0 THEN
        product := product * i;
      END;
    END;
  WriteLn(product);
END.

Объяснение:

1. PROGRAM ProductOfMultiplesOf9: объявляет имя программы.
2. VAR: объявляет переменные.
3. i: переменная для цикла.
4. product: переменная для хранения произведения.
5. BEGIN: начало блока кода.
6. FOR i := 10 TO 50 DO: цикл для перебора чисел от 10 до 50.
7. IF i MOD 9 = 0 THEN: проверяет, делится ли число i на 9 без остатка.
8. product := product * i: умножает product на i, если i делится на 9.
9. END: конец цикла.
10. WriteLn(product): выводит значение product на экран.
11. END.: конец программы.