Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 31.10.2010
Сообщений: 30
1

Найдите номер первого четного числа последовательности чисел

31.10.2010, 20:22. Показов 1642. Ответов 2
Метки нет (Все метки)

Сказано что задача решаеться через цикл с четчиком.

С клавиатуры вводиться n заданных чисел a1, a2, a3,..... an .Найдите номер первого четного числа последовательности чисел. Если четных чисел нет, ответ 0
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2010, 20:22
Ответы с готовыми решениями:

Найдите номер первого четного числа последовательности чисел
Здесь нужен цикл с четчиком С клавиатуры вводиться n заданных чисел a1, a2, a3,..... an .Найдите...

Найти номер первого четного числа последовательности чисел
решить задачу двумя способами 1. С массивом(При решении способом с массивом вывести все введенные...

Найти номер первого четного числа в массиве
В одномерном массиве целых чисел a1, а2, ..., an найти но¬мер первого четного числа. Если четных...

В одномерном массиве найти номер первого четного числа
В одномерном массиве целых чисел a1, а2, ..., an найти но¬мер первого четного числа. Если четных...

2
AF
49 / 48 / 21
Регистрация: 06.10.2010
Сообщений: 115
31.10.2010, 20:40 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
VAR
  n, i: INTEGER;
  A: ARRAY[1..1000] OF INTEGER;
BEGIN
  WRITE('n=');
  READLN(n);
  WRITELN('Enter array[', n, ']:');
  FOR i := 1 TO n
  DO
    READ(A[i]);
  i := 0;
  WHILE i <= n
  DO
    BEGIN
      i := i + 1;
      IF A[i] MOD 2 = 0
      THEN
        Break
    END;
  WRITELN('x=', A[i]);
  READLN
END.
1
0 / 0 / 0
Регистрация: 31.10.2010
Сообщений: 30
31.10.2010, 20:49  [ТС] 3
Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.10.2010, 20:49

Найдите номер первого шестизначного числа
Помогите пжл очень надо !!! Вопрос отчисления !!! Помогите !!! Среди чисел 1,4,9,16,25 … найдите...

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел.
Решить задачу 3 способами: 1. Используя метки и оператор goto (не используя никакой цикл) 2....

Получить порядковый номер первого четного элемента вводимой последовательности
program pro; var N : integer ; ci,i : integer ; c : integer ; A : array of integer; begin ...

Найти количество чисел последовательности, оканчивающихся на 3, до первого четного
Помогите составить программу: &quot;Вводится последовательность целых чисел до первого четного числа....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru