Найти порядковый номер первого элемента массива, кратного 5

@V1T4S · Регистрация: 12.12.2009

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

вот еще задачки:
6. Условие: Используя оператор цикла, вводить с клавиатуры числа и выполнять с ними соответствующие действия. Результаты работы программы вывести, снабдив их соответствующими заголовками.
С клавиатуры вводятся целые положительные числа. Подсчитать сколько среди них попадается первое введенное число.
7. Условие: Используя оператор цикла, вводить с клавиатуры данные несколько раз и выполнять с ними соответствующие действия. Результаты работы программы вывести, снабдив их соответствующими заголовками.
Ввести с клавиатуры координаты центров двух окружностей и координаты двух точек на каждой окружности. Вычислить площадь круга и длину окружности наибольшего радиуса.
8. Условие: Используя оператор цикла, разделить введеннос с клавиатуры число, разделить его на отдельные цифры и выполнить с ними заданные действия.
Ввести с клавиатуры число и подсчитать, сколько в нем цифр, отличных от последней цифры.
9. В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. (1984 год - год зеленой крысы – был началом очередного цикла).
Написать программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому календарю.
10. Для конкретного варианта составить массив исходных данных. Написать программу, которая работает с любым допустимым набором данных. Входную информацию и результаты счета вывести на печать, снабдив их соответствующими заголовками.
а) В массиве из 14 элементов найти количество элементов, равных первому.

Б) Дан массив из 35 элементов. Найти порядковый номер первого элемента, кратного 5.

В) Дан одномерный массив на 18 элементов. Вычислить произведение первого элемента на сумму всех остальных элементов массива.

Примного благодарен за решение ранних задач, зарание спасибо!

@Шутка · 12.12.2009, 20:27

Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
const
r=13.75;
var
s,ygol:real;
begin
writeln('ygol='); readln(ygol);
s:=((pi*r*r)/360)*ygol;
writeln('s=',s);
end.

Тогда так.

Добавлено через 5 минут
Б) Дан массив из 35 элементов. Найти порядковый номер первого элемента, кратного 5.

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var
x,i:integer;
a:array[1..500] of integer;
begin
for i:=35 downto 1 do begin
readln(a[i]);
if a[i] mod 5 = 0 then x:=i;
end;
writeln('pervii element kratnii 5 imeet ',x,' por.nomer');
end.

Добавлено через 2 минуты
а) В массиве из 14 элементов найти количество элементов, равных первому.

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var
counter,i:integer;
a:array[1..500] of integer;
begin
for i:=1 to 18 do begin
readln(a[i]);
if a[i]=a[1] then counter:=counter+1;
end;
writeln(counter-1,' elementov ravnih pervomy');
end.

Добавлено через 8 минут
Дан одномерный массив на 18 элементов. Вычислить произведение первого элемента на сумму всех остальных элементов массива.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var
i:integer;
sum,proizv:real;
a:array[1..500] of integer;
begin
for i:=1 to 35 do begin
readln(a[i]);
end;
for i:=2 to 35 do begin
sum:=sum+a[i];
end;
writeln('proizvedenie 1go elementa na vse ost.=',sum*a[1]);
end.

Добавлено через 2 минуты
В остальных заданиях очень много букав. нам не очень интересно копаться в условиях, отделяя мусор от важностей =)
Перепишите попроще. или может это я просто устал.

@V1T4S · 13.12.2009, 10:33 **[ТС]**

спасибо!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@V1T4S 0 / 0 / 0 Регистрация: 12.12.2009 Сообщений: 22

	Найти порядковый номер первого элемента массива, кратного 5 12.12.2009, 20:02. Показов 5180. Ответов 2 Метки нет (Все метки) вот еще задачки: 6. Условие: Используя оператор цикла, вводить с клавиатуры числа и выполнять с ними соответствующие действия. Результаты работы программы вывести, снабдив их соответствующими заголовками. С клавиатуры вводятся целые положительные числа. Подсчитать сколько среди них попадается первое введенное число. 7. Условие: Используя оператор цикла, вводить с клавиатуры данные несколько раз и выполнять с ними соответствующие действия. Результаты работы программы вывести, снабдив их соответствующими заголовками. Ввести с клавиатуры координаты центров двух окружностей и координаты двух точек на каждой окружности. Вычислить площадь круга и длину окружности наибольшего радиуса. 8. Условие: Используя оператор цикла, разделить введеннос с клавиатуры число, разделить его на отдельные цифры и выполнить с ними заданные действия. Ввести с клавиатуры число и подсчитать, сколько в нем цифр, отличных от последней цифры. 9. В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. (1984 год - год зеленой крысы – был началом очередного цикла). Написать программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому календарю. 10. Для конкретного варианта составить массив исходных данных. Написать программу, которая работает с любым допустимым набором данных. Входную информацию и результаты счета вывести на печать, снабдив их соответствующими заголовками. а) В массиве из 14 элементов найти количество элементов, равных первому. Б) Дан массив из 35 элементов. Найти порядковый номер первого элемента, кратного 5. В) Дан одномерный массив на 18 элементов. Вычислить произведение первого элемента на сумму всех остальных элементов массива. Примного благодарен за решение ранних задач, зарание спасибо! 0

@V1T4S 0 / 0 / 0 Регистрация: 12.12.2009 Сообщений: 22
	13.12.2009, 10:33 [ТС]
	спасибо! 0

Найти порядковый номер первого элемента массива, кратного 5

Решение