Дата публикации:

Помогите, пожалуйста, написать программу (желательно на паскале) с помощью массива.

00d9bc8f



Купить или узнать подробнее


Помогите, пожалуйста, написать программу (желательно на паскале) с помощью массива.

Вот пример программы на паскале, которая решает данную задачу:

program CountOddMultiplesOfThree;

const
  MAX_NUMBERS = 1000;
  MAX_VALUE = 30000;

var
  numbers: array[1..MAX_NUMBERS] of Integer;
  length, count: Integer;
  i, num: Integer;

begin
  length := 0;
  count := 0;

  repeat
    readln(num);
    if (num <> 0) and (length < MAX_NUMBERS) then
    begin
      length := length + 1;
      numbers[length] := num;
    end;
  until num = 0;

  for i := 1 to length do
  begin
    if (numbers[i] mod 2 <> 0) and (numbers[i] mod 3 = 0) then
      count := count + 1;
  end;

  writeln('Length of sequence: ', length);
  writeln('Count of odd multiples of three: ', count);
end.

Программа использует массив numbers для хранения введенных чисел. Она считывает числа до тех пор, пока не встретит число 0 или не достигнет максимального количества чисел. Затем она проходит по массиву и проверяет каждое число на нечетность и кратность 3. Если число удовлетворяет этим условиям, счетчик count увеличивается на 1. В конце программа выводит длину последовательности и количество нечетных чисел, кратных 3.



Купить или узнать подробнее