Вопрос по информатике:
Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности. Помогите с блок схемой через цикл while
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.07.2015 13:09
- Информатика
- remove_red_eye 4552
- thumb_up 10
Ответы и объяснения 1
program pin;
var
i, j, cm: Integer;
povtor: Boolean;
const
m: array[1..10] of Integer = (1, 2, 3, 1, 2, 5, 4, 3, 1, 2);
begin
cm := 0;
for i := 1 to 10 do
begin
povtor := False;
for j := 1 to 10 do
begin
if (i j) and (m[ i ] = m[ j ]) then
begin
povtor := True;
Break;
end;
end;
if not povtor then cm := cm + 1;
end;
WriteLn(cm);
end.
- 18.07.2015 04:21
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.