Проверить утверждение: "Каждый пятый по номеру элемент последовательности - число пять"

@clone2305 · Регистрация: 25.01.2017

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

Дана числовая последовательность, значения ее элементов могут быть не уникальны, и не превышают по модулю число 32000. Определить, верно ли утверждение, вывести на экран значение логической константы True или False.
Утверждение^ "Каждый пятый по номеру элемент последовательности - число пять".
Конец последовательности – число "ноль". Проверка пустой последовательности дает - False.

Пример работы программы:
Ввод: 1 2 3 4 5 6 7 8 9 5 10 11 12 13 5 0
Вывод: True
Ввод: 1 2 3 4 5 6 7 8 9 10 0
Вывод: False
Ввод: 5 2 3 4 5 5 5 5 5 5 0
Вывод: True
Стоимость: 3 баллов

@ZX Spectrum-128 · 12.02.2017, 10:30

Pascal

var
  i, x: integer;
  f: boolean;
 
begin
  f := false;
  i := 1;
  repeat
    read(x);
    if x = 0 then 
      break;
    f := (i mod 5 = 0) and (x = 5);
    inc(i);    
  until false;
  write(f);
end.

@volvo · 12.02.2017, 14:20

Если последовательность уже задана - то:

Pascal

begin
  var a := Arr(1, 2, 3, 4, 4, 6, 7, 8, 9, 5, 10, 11, 12, 13, 5, 0).TakeWhile(x -> x <> 0); // Вот она, последовательность без завершающего нуля
  writeln(a.Where((x, i) -> Succ(i) mod 5 = 0).All(x -> x = 5));
end.

@clone2305 0 / 0 / 0 Регистрация: 25.01.2017 Сообщений: 25
		1
	Проверить утверждение: "Каждый пятый по номеру элемент последовательности - число пять" 11.02.2017, 20:31. Показов 1153. Ответов 2 Метки нет (Все метки) Дана числовая последовательность, значения ее элементов могут быть не уникальны, и не превышают по модулю число 32000. Определить, верно ли утверждение, вывести на экран значение логической константы True или False. Утверждение^ "Каждый пятый по номеру элемент последовательности - число пять". Конец последовательности – число "ноль". Проверка пустой последовательности дает - False. Пример работы программы: Ввод: 1 2 3 4 5 6 7 8 9 5 10 11 12 13 5 0 Вывод: True Ввод: 1 2 3 4 5 6 7 8 9 10 0 Вывод: False Ввод: 5 2 3 4 5 5 5 5 5 5 0 Вывод: True Стоимость: 3 баллов 0

	12.02.2017, 14:20

Проверить утверждение: "Каждый пятый по номеру элемент последовательности - число пять"

Решение