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

Question

Информатика

Дона

4 сентября, 00:53

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

+5

Ответы (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)