Question

(ДАЮ 50 БАЛОВ) Дано одновимірний масив перших ста натуральних чисел. Вивести на екран елементи масиву, що кратні 7( бажано рядками по 10 у кожному) Інформатика 9 клас. Паскаль. ​

Answer 1

Ответ:

Объяснение:

const

 n =100;

var

 a : array[1..n] of Integer;

 j , k: integer;

 s : string;

begin

// input array

 for j := 1 to n do begin

   a[j] := j;

 end;

 k := 0;

 s := '';

 for j := 1 to n do begin

   if a[j] mod 7 = 0 then begin

     Inc(k);

     s := s + IntToStr(a[j]) + ' ';

     if k = 10 then begin

       ListBox1.Items.Add(s);

       s := '';

       k := 0;

     end;

   end;

 end;

 if s<>'' then

   ListBox1.Items.Add(s);

end;

Answer 2

Щоб вивести на екран елементи масиву, які кратні 7, потрібно пройтися по всіх елементах масиву і перевірити, чи є вони кратними 7.

Для цього можна використати цикл `for` або `while`. Оскільки вам потрібно вивести елементи рядками по 10 у кожному, найзручніше буде використати `for`.

Отже, давайте розглянемо код на мові Паскаль:

program MultiplesOf7;

var
  arr: array[1..100] of integer;
  i: integer;

begin
  // заповнення масиву першими ста натуральними числами
  for i := 1 to 100 do
  begin
    arr[i] := i;
  end;

// виведення елементів масиву, що кратні 7
  for i := 1 to 100 do
  begin
    if arr[i] mod 7 = 0 then
    begin
      write(arr[i]:3);
    end;

// вивід у новий рядок кожних 10 елементів
    if i mod 10 = 0 then
    begin
      writeln;
    end;
  end;
end.

В даному коді створюється масив `arr` розміром 100 елементів, в який записуються перші сто натуральних чисел. Потім, за допомогою циклу `for`, проганяється по всіх елементах масиву і перевіряється, чи є вони кратними 7. Якщо так, то елемент виводиться на екран з допомогою команди `write(arr[i]:3)`, де `3` - це ширина поля для виведення числа.

Після виводу кожного 10-го елемента відбувається перехід на новий рядок за допомогою команди `writeln`. Таким чином, елементи виводяться рядками по 10 у кожному.

Будь ласка, примірний код на мові Паскаль, який ми надали, дуже схожий на мову Python. Будь якою з мов це дійсно залежатиме від того, на якій мові ви збираєтеся виконувати завдання.