Question

Ввести любых 5 чисел с клавиатуры. Определить сколько чисел ввели равных числу N. Паскаль

Answer 1

Var i,j,x,n
x - введенное число, i  - число с которым нужно сравнить, n - счётчик чисел

n:=0;
ReadLn (i); 
for j:=1 to 5 do begin
ReadLn (x); 
if x=i then n:=n+1;
end;
writeLn("N= "n)

Answer 2

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

arduinoCopy code
program CountNumbers;

var
  i, N, count: integer;
  numbers: array[1..5] of integer;

begin
  // Запросить у пользователя пять чисел
  writeln('Введите пять чисел:');
  for i := 1 to 5 do
  begin
    readln(numbers[i]);
  end;

  // Запросить у пользователя число N
  writeln('Введите число N:');
  readln(N);

  // Посчитать, сколько чисел равны N
  count := 0;
  for i := 1 to 5 do
  begin
    if numbers[i] = N then
    begin
      count := count + 1;
    end;
  end;

  // Вывести результат на экран
  writeln('Количество чисел, равных ', N, ': ', count);
end.

Пользователь будет приглашен ввести пять чисел, затем число N. После этого программа определит, сколько чисел из пяти введенных пользователем равны N, и выведет результат на экран.