Question

50 БАЛЛОВ!!!!!! СРОЧНО.... Написать программу паскаль. Дано n натуральных чисел которые вводятся по одному найти количество чисел последняя цифра которых равна 5

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 ReadSeqInteger('Вводите:', n)

     .Count(p -> p mod 10 = 5)

     .Print

end.

Answer 2

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

pascalCopy code
program CountNumbersEndingWith5;

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

Вы можете скопировать этот код и вставить его в среду разработки Pascal (например, Free Pascal) для выполнения. Программа сначала запросит количество чисел, затем будет просить ввести сами числа по одному. После ввода всех чисел, программа выведет количество чисел, оканчивающихся на 5.