Составить блок-схему и программу, используя цикл «До»: Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.​

#1)объектом

#2)

#3)системой

#4)3 4 5 8

#5) Объектами операционной системы являются: рабочий стол компьютера (так как функцией ОС является обеспечение пользовательского интерфейса), окно (документа, папки, приложения), сама папка и файл.

#6) окно доска

#7)

#8)

#9)Солнечная система растения

#10) компьютер автомобиль

#11)3и4

#12)А) Устройства ввода информации

Б) Устройства хранения информации

#13)определённая взаимосвязь, взаиморасположение составных частей, строение, устройство чего-либо. Структура — совокупность связей между частями объекта. Тонкая структура — группа близких уровней энергии и спектральных линий, различающихся из-за спин-орбитального взаимодействия. Сверхтонкая структура — группа близких уровней энергии и спектральных линий, различающихся из-за взаимодействия магнитны

#14). Водонагреватель. Служит для подогрева проходящей через него воды.

Входы: электропитание, холодная вода.

Выходы: горячая вода.

#15) электроэнергиия . регулятор громкости

// Напишите программу, которая в последовательности натуральных чисел определяет количество
//чисел, кратных 3. Программа получает на вход количество чисел в
//последовательности, а затем сами числа. В последовательности всегда имеется число,
//кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300.
//Программа должна вывести одно число - количество чисел, кратных 3.

Var  i,j,x  :word;
     n      :integer;
begin
  writeln('Введите количество цифр в последовательности');
  Readln (j);
  if j>100 then //Проверка накличество чисел в последовательности
      begin
        writeln ('По условия задачи цифр не должно быть более 100');
        writeln ('Введите количесво цифр еще раз');
        readln (j);
      end;
  for i:=1 to j do
  begin
    Writeln ('Введите ',i,' число');
    readln (n);
    if n>300 then //проверка максимального значения числа
      begin
        writeln ('Данное число не удовлетворяет условиям задачи (>300');
        writeln ('Введите его еще раз');
        readln (n);
      end;
      n:= n mod 3;
      if n=0 then x:=x+1;
      end;
   Writeln ('Количество чисел, кратных 3:');
   Writeln (x);
end.