Question

Помогите пожалуйста! Напишите программу на языке паскаль, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 9. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 9.Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000.Программа должна вывести одно число: количество чисел, оканчивающихся на 9.Пример работы программы:Входные данные Выходные данные 31929 224

Answer 1

Ответ:

var n,x,k,i:integer;

begin

 readln(n);

 for i:=1 to n do

   begin

   readln(x);

   if x mod 10=9 then

     k:=k+1;

   end;

write('всего чисел которые оканчиваются на 9: ',k);

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет указанную задачу:

pascalCopy code
program CountNumbersEndingWith9;

var
  N, Number, Count: Integer;

begin
  Count := 0; // Инициализируем счетчик нулем
  Write('Введите количество чисел в последовательности: ');
  Readln(N);
  
  for i := 1 to N do
  begin
    Write('Введите число: ');
    Readln(Number);
    
    // Проверяем, оканчивается ли число на 9
    if Number mod 10 = 9 then
      Inc(Count); // Увеличиваем счетчик, если число оканчивается на 9
  end;
  
  Writeln('Количество чисел, оканчивающихся на 9: ', Count);
end.

Вы можете скопировать этот код и выполнить его в вашей среде разработки Pascal. Программа попросит вас ввести количество чисел в последовательности, а затем ввести сами числа. После этого она выведет количество чисел, оканчивающихся на 9.