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

Question

Информатика

Всеволодыч

12 ноября, 07:41

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

+3

Ответы (1)

Знаете ответ?

Марианна · 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)