Ввести любых 5 чисел с клавиатуры. Определить сколько чисел ввели равных числу N. Паскаль
Ввести любых 5 чисел с клавиатуры. Определить сколько чисел ввели равных числу N. Паскаль
Гость
Ответ(ы) на вопрос:
Гость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)
Не нашли ответ?
Похожие вопросы