Вычислить количество четных элементов, которые имеют четные номера

@Inneska · Регистрация: 23.05.2015

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

Дано файл, элементами которого являются целые числа. Вычислить количество парных элементов, которые имеют четные номера.

@ZX Spectrum-128 · 24.05.2015, 10:04

Сообщение от Inneska

парных элементов,

Четных?

@ZX Spectrum-128 · 25.05.2015, 10:09

Pascal

{Дано файл, элементами которого являются целые числа. Вычислить количество
парных элементов, которые имеют четные номера.}
var
  f:file of integer;
  k,x,n,i:integer;
begin
  n:=20;
  randomize;
  assign(f,'file.fat');
  rewrite(f);
  for i:=1 to n do
    begin
      x:=random(n)+1;
      write(f,x);
      write(x:3);
    end;
  close(f);
  writeln; 
  reset(f);
  i:=1;
  while not eof(f) do
    begin
      read(f,x);
      if (not odd(x)) and (not odd(i)) then
        inc(k);
      inc(i);
    end;
  close(f);
  writeln('Количество парных элементов: ',k);
  readln;
end.

Новые блоги и статьи
Как конвертировать видео в GIF hw_wired 24.01.2025 В современном мире анимированные изображения стали неотъемлемой частью цифровой коммуникации. Формат GIF (Graphics Interchange Format) представляет собой особый тип файлов, который позволяет. . .	Как скопировать текст в буфер обмена на JavaScript во всех браузерах hw_wired 24.01.2025 Копирование текста в буфер обмена стало неотъемлемой частью современных веб-приложений, значительно улучшающей пользовательский опыт и упрощающей работу с контентом. В эпоху активного обмена. . .	Как скрыть клавиатуру на Android hw_wired 24.01.2025 При разработке Android-приложений часто возникает необходимость управлять видимостью экранной клавиатуры для улучшения пользовательского опыта. Одним из наиболее эффективных способов контроля. . .	Как обучить нейросеть создания картинок на Python bytestream 24.01.2025 В эпоху цифровых технологий искусственный интеллект становится неотъемлемой частью творческого процесса. Особое место в этой области занимает разработка и обучение нейронных сетей для создания. . .	Как обучить нейросеть генерации текста на Python bytestream 24.01.2025 В современном мире искусственный интеллект и машинное обучение становятся неотъемлемой частью многих технологических решений. Одной из наиболее интересных и востребованных задач в этой области. . .	Машинное обучение на Python bytestream 24.01.2025 Введение в машинное обучение на Python Машинное обучение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, которая позволяет компьютерным системам. . .
Как удалить вирус-майнер с компьютера hw_wired 24.01.2025 Вирусы-майнеры стали одной из наиболее серьезных угроз для пользователей компьютеров. Эти вредоносные программы тайно используют вычислительные ресурсы зараженного устройства для добычи криптовалюты. . .	Что такое веб-сервер, для чего он нужен и как работает bytestream 24.01.2025 В современную эпоху цифровых технологий веб-сервер является фундаментальным компонентом интернет-инфраструктуры, обеспечивающим функционирование множества онлайн-сервисов и веб-сайтов. Этот. . .	Как в цикле for перебрать все элементы в словаре в Python bytestream 24.01.2025 Словари в Python представляют собой мощные структуры данных, которые позволяют хранить информацию в формате ключ-значение. Эта особенность делает их незаменимыми при работе с данными, где требуется. . .	Как отменить rebase в Git hw_wired 24.01.2025 Git rebase представляет собой мощный инструмент для управления историей коммитов в системе контроля версий Git. Этот механизм позволяет разработчикам изменять последовательность, комбинировать или. . .	Как поменять цвет input placeholder с помощью CSS bytestream 24.01.2025 В веб-разработке оформление элементов пользовательского интерфейса играет ключевую роль в создании привлекательного и интуитивно понятного дизайна. Особое внимание уделяется формам ввода данных, где. . .	Как перебрать все значения в перечислении (enum) в C# bytestream 24.01.2025 Перечисление (enum) в языке программирования C# представляет собой специальный тип данных, который позволяет определить набор именованных констант. Этот мощный инструмент особенно полезен, когда. . .

@Inneska 0 / 0 / 0 Регистрация: 23.05.2015 Сообщений: 27
		1
	Вычислить количество четных элементов, которые имеют четные номера 23.05.2015, 16:35. Показов 1067. Ответов 2 Метки нет (Все метки) Дано файл, элементами которого являются целые числа. Вычислить количество парных элементов, которые имеют четные номера. 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	24.05.2015, 10:04	2
	Сообщение от Inneska парных элементов, Четных? 1

	25.05.2015, 10:09

Опции темы

Вычислить количество четных элементов, которые имеют четные номера

Решение