Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
alisa208
1 / 1 / 2
Регистрация: 07.07.2014
Сообщений: 38
#1

Вывести значение каждого третьего четного элемента последовательности, начиная с первого

28.07.2014, 23:01. Просмотров 722. Ответов 3
Метки нет (Все метки)

Вывести значение каждого третьего четного элемента последовательности, начиная с первого (через два четных элемента).
Входные данные:

Во входном потоке в первой строке через пробел перечислены значения элементов целочисленной последовательности. Признаком окончания последовательности является число ноль. Сам ноль не является элементом последовательности. Значения элементов последовательности по модулю не превышают 30000.
Выходные данные:

В выходной поток вывести целые числа в строку через пробел.
Пример входного файла:

29070 23565 -29141 29915 22568 21096 2...

Пример выходного файла:

29070 21142 -6146 3264 9220 26216 -246...


подскажите, пожалуйста, в чем ошибка( выводит Нарушение формата вывода)
Pascal
1
2
3
4
5
6
7
8
9
10
11
var i,n,x,a:longint;
begin
a:=1;
i:=0;
while a<>0 do begin read(a);
i:=i+1;
if ((i-1) mod 3=0) and (a mod 2=0) and(a<>0)
 
then write(a,' ');
end;
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.07.2014, 23:01
Ответы с готовыми решениями:

Вывести значение каждого третьего элемента последовательности, начиная с первого
Вывести значение каждого третьего элемента последовательности, начиная с...

Циклы. Вывести значение каждого пятого отрицательного элемента последовательности, начиная с первого отрицательного
Пожалуйста помогите решить задачи. Все задачи на тему: &quot;Циклы&quot;. Условие задач в...

Вывести значения элементов, начиная с первого так, чтобы значение выводимого элемента было меньше предыдущего
Вывести значения элементов, начиная с первого так, чтобы значение выводимого...

Циклы. Вывести значения элементов, начиная с первого, так что бы значение выводимого элемента было равно значению предыдущего выведенного
Пожалуйста помогите решить задачи. Все задачи на тему: &quot;Циклы&quot;. Условие задач в...

Циклы. Вывести значения элементов, начиная с первого, так что бы значение выводимого элемента было больше значения предыдущего выведенного
Пожалуйста помогите решить задачи. Все задачи на тему: &quot;Циклы&quot;. Условие задач в...

3
некит434
2 / 2 / 0
Регистрация: 23.01.2014
Сообщений: 272
28.07.2014, 23:04 #2
какая задача номер
0
alisa208
1 / 1 / 2
Регистрация: 07.07.2014
Сообщений: 38
28.07.2014, 23:21  [ТС] #3
1465 на ЮНе
0
Asdfqwer
1 / 1 / 5
Регистрация: 13.10.2015
Сообщений: 8
20.10.2015, 19:50 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  a,i:longint;
begin
  read(a);
  write(a,' ');
  i:=1;
  while a<>0 do 
    begin
      read(a);
      i:=i+1;
      if (i mod 3=0)and(not(odd(a))) 
      then write(a,' ');
    end;
end.
Добавлено через 8 минут
Ошибся чуток
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  a,i:longint;
begin
  read(a);
  write(a,' ');
  i:=1;
  while a<>0 do 
    begin
      read(a);
      i:=i+1;
      if (a<>0)and((i-1) mod 3=0)and(not(odd(a))) 
      then write(a,' ');
    end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2015, 19:50

Вывести значение каждого третьего элемента последовательности, значение которого кратно трем
Входные данные: Во входном потоке в первой строке через пробел перечислены...

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

Изменить массив, уменьшив его нечетные элементы на значение первого четного элемента
Описать динамический массив. Реализовать 2 способа инициализации массива...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru