Вычислить количество элементов числовой последовательности, в записи значения которых есть только одна цифра 5

@некит434 · Регистрация: 23.01.2014

Author24 — интернет-сервис помощи студентам

Вычислить количество элементов числовой последовательности, в записи значения которых содержится только одна цифра 5.
Входные данные:
Во входном потоке в первой строке задано число элементов целочисленной числовой последовательности N (N <= 100), во второй строке - записаны через пробел двухзначные значения элементов числовой последовательности.

Выходные данные:
В выходной поток вывести единственное целое число.

Пример входного файла (input.txt):
5
11 25 30 50 46
Пример выходного файла (output.txt):
2
вот что написал

Pascal

var
  i,a,n:integer;
  f1,f2:text;
begin
  assign(f1, 'input.txt'); reset(f1);
  assign(f2, 'output.txt'); rewrite(f2);
  readln(f1,n);
  for i:=1 to n do
  begin
    read(f1,a);
    if (a <> 55) and ((a mod 10 = 5) or (a div 10 = 5)) then writeln(f2, a);
  end;
  close(f1);
  close(f2);
end.

ошибку выдает проверяющяя система

@Puporev · 29.07.2014, 14:46

некит434, Еще раз выложишь код, не выделенный тегами , буду удалять темы, мне надоело вытирать твои сопли.

@некит434 · 29.07.2014, 14:49 **[ТС]**

окей

@Sergio Leone · 29.07.2014, 14:49

некит434, вы в цикле выдаете все подходящие двухзначные числа, а Вам что нужно выдать??!

Сообщение от некит434

В выходной поток вывести единственное целое число

Как подсчитать число подходящих чисел, надеюсь, догадаетесь самостоятельно?!

@Iriini · 29.07.2014, 14:49

некит434, по твоему заданию надо найти количество, а ты выводишь сами числа.

@некит434 · 29.07.2014, 14:56 **[ТС]**

а как выделить тегами

@Puporev · 29.07.2014, 14:59

Выложи код, выдели его мышью и нажми на кнопку PASCAL над окном сообщений

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	29.07.2014, 14:46	2
	некит434, Еще раз выложишь код, не выделенный тегами , буду удалять темы, мне надоело вытирать твои сопли. 0

@некит434 2 / 2 / 0 Регистрация: 23.01.2014 Сообщений: 272
	29.07.2014, 14:49 [ТС]	3
	окей 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	29.07.2014, 14:49	4
	некит434, вы в цикле выдаете все подходящие двухзначные числа, а Вам что нужно выдать??! Сообщение от некит434 В выходной поток вывести единственное целое число Как подсчитать число подходящих чисел, надеюсь, догадаетесь самостоятельно?! 0

@Iriini 266 / 192 / 50 Регистрация: 16.06.2014 Сообщений: 424
	29.07.2014, 14:49	5
	некит434, по твоему заданию надо найти количество, а ты выводишь сами числа. 0

@некит434 2 / 2 / 0 Регистрация: 23.01.2014 Сообщений: 272
	29.07.2014, 14:56 [ТС]	6
	а как выделить тегами 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	29.07.2014, 14:59	7
	Выложи код, выдели его мышью и нажми на кнопку PASCAL над окном сообщений 0