Вопрос по информатике:
Последовательно вводятся n целых чисел сосчитать сколько из них совпадают с первым числом кумир
Пожаловаться
- 22.07.2018 12:25
- Информатика
- remove_red_eye 19225
- thumb_up 24
Ответы и объяснения 1
var first, other, n, i, count : integer;
begin
repeat write('n = '); readln(n)
until n > 0;
write('1-ый элемент = '); readln(first);
for i := 2 to n do begin
write(i, '-ый элемент = '); readln(other);
if first = other then inc(count)
end;
writeln('Ответ: ', count)
end.
begin
repeat write('n = '); readln(n)
until n > 0;
write('1-ый элемент = '); readln(first);
for i := 2 to n do begin
write(i, '-ый элемент = '); readln(other);
if first = other then inc(count)
end;
writeln('Ответ: ', count)
end.
Пожаловаться
- 23.07.2018 20:08
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы