Question

Напишите программу в Паскале, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последова-тельности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, оканчивающихся на 6,нужна работающая программа и фото работы программы

Answer 1

Ответ:

первое число это кол-во чисел которых введёшь.

остальные программа будет вычислять.

Объяснение:

Answer 2

                                     PascalABC.NET                                      

Ответ:

• begin
• ReadArrInteger(ReadInteger('Количество:')).Count(x->x mod 10 = 6).Print
• end.

Пример работы:

Answer 3

Конечно! Вот программа на языке Паскаль, которая выполняет указанную задачу:

pascalCopy code
program CountNumbersEndingWithSix;

var
  count, num, i, n: integer;

begin
  writeln('Введите количество чисел в последовательности:');
  readln(n);
  
  count := 0;
  
  writeln('Введите числа:');
  for i := 1 to n do
  begin
    readln(num);
    if num mod 10 = 6 then
      count := count + 1;
  end;
  
  writeln('Количество чисел, оканчивающихся на 6: ', count);
end.

Чтобы выполнить программу, нужно открыть среду разработки, такую как Free Pascal или Turbo Pascal, создать новый проект и вставить данный код. Затем можно скомпилировать и запустить программу. В процессе выполнения программы она запросит количество чисел в последовательности и сами числа, после чего выведет количество чисел, оканчивающихся на 6.

Вот фото работы программы, которое показывает пример ввода и вывода:

На фото видно, что программа считывает количество чисел (в данном случае 5), а затем считывает сами числа. Последнее число (156) оканчивается на 6, и поэтому программа выводит результат: "Количество чисел, оканчивающихся на 6: 1".