Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// Напишите программу, которая в последовательности натуральных чисел определяет количество
//чисел, кратных 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.