IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задачи от Romario
сообщение
Сообщение #1


Гость






Дано равносторонний треугольник со стороной a. Найти, длину стороны равнобольшого ему квадрата. Вычислить для таких значений:
Цитата
a) a=7;
b) a=13
c) a=54

Написать программу, которая определяет, можно ли построить треугольник со сторонами a, b, і c.
Написать программу для определения квартала года по порядковому номеру месяца.
Найти количество чисел кратных 7 от 7 до 7777 включительно.
Цитата
a) Используя цикл for;
b) Используя цикл while;
c) Используя цикл repeat

Найти среднее арифметическое всех целых положительных чисел меньше числа n включительно.
Вычислить для
Цитата
a) n=5;
b) n=20;
c) n=156

Написать программу нахождения суммы чисел:
S=10+22+32+…+n2, если
Цитата
a) n=7;
b) n=10;
c) n=12

Найти остаток от деления натурального числа a на натуральное число b путём последовательного вычитания от числа a числа b.

Натуральное число называется идеальным, если оно равно суме всех своих делителей, кроме самого числа. Проверить, будет ли число n идеальным.

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 89
Пол: Мужской

Репутация: -  0  +


Вот ещё задачи, которые срочно нужно решить:

1. Найти все трехзначные числа, которые состоят из разных цифр, а их сумма равна А
(А вводить с клавиатуры).

2.Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N.

3.Написать программу поиска двузначных чисел, удовлетворяющих следующему условию: если к сумме цифр числа прибавить квадрат этой суммы, то получится само число.

4.Написать программу поиска трехзначных чисел, квадрат которых оканчивается тремя цифрами, составляющими исходное число.

5.Написать программу поиска четырехзначною числа, которое при делении на 133 дает в остатке 125, а при делении на 134 дает в остатке 111.

6. Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся с клавиатуры).

7.Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2, 4 или 8.

8.В трехзначном числе зачеркнули старшую цифру, когда полученное двузначное число умножили на 7, то получили данное число. Найти это число.

9.Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найти все такие числа.

10.четырехзначных чисел выбрать те, у которых все четыре цифры различны.

11.Среди двузначных чисел найти те, которые делятся на число q, а сумма их цифр равна п (0 < п <= 18 ).

12.Дано четырехзначное число n. Выбросить из записи числа п цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 1509 должно получиться 19.

13.Дано натуральное число. Найти все его делители и их сумму.

14.данного натурального числа удалить все цифры А (А вводится с клавиатуры).

15.Найти количество делителей натурального числа. Сколько из них четных?

16.Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенсто: a2 * b = c2

17.Произведение N первых нечетных чисел равно Р. Сколько сомножителей взято.

18.Даны натуральное N и последовательность A1, A2, …,A N, состоящая из N целых чисел. Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены. Оба массива вывести на экран.

19.Даны натуральное число N и последовательность A1, A2, …,A N. Определить количест-во вхождений N в данную последовательность (N – вводится с клавиатуры).

20.Даны натуральное число N и последовательность A1, A2, …,A N. Определить наимень-шее положительное среди A1, A2, …,A N и найти сумму отрицательных.

21.Дана последовательность из 50 чисел. Найти их среднее арифметическое. Найти сколько среди них отличных от последнего числа

22.Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последова-тельности.

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

24.Дана последовательность из n вещественных чисел. Найти номер первого вхождения данного числа в последовательность или вывести сообщение, что такого числа нет.

25.Дана последовательность из n вещественных чисел. Найти номер последнего вхожде-ния данного числа в последовательность или вывести сообщение, что такого числа нет.

26.Дана последовательность из n действительных чисел. Получить числа b1,...,bn, где bi - среднее арифметическое всех элементов исходной последовательности, кроме i - того элемента.

27.Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.

28.Дана последовательность из n целых чисел. Заполнить ее с помощью генератора слу-чайных чисел. Найти: сумму положительных элементов, значения которых меньше 10; вывести индексы тех элементов, значения которых кратны 3 и 5.

29.Из элементов массива С сформировать массив А той же размерности по правилу: если номер четный, то Ai = Ci2, если нечетный, то Ai = 2Ci

30.Заменить последний положительный элемент массива А на второй элемент массива В. Вывести на экран оба массива.

31.Проверить является ли, введенное с клавиатуры число Х, меньше всех элементов мас-сива А.

32.Разделить все элементы с четными номерами на первый элемент, создав при этом но-вый массив. Вывести оба массива. Заполнение с помощью генератора случайных чи-сел.

33.Заменить элементы с нечетным номером на квадрат их номера. Вывести оба массива. Заполнение с помощью генератора случайных чисел.

34.Присвоить элементам массива В результат отношения суммы элементов массива А к соответствующим элементам массива А. Вывести оба массива. Заполнение с помощью генератора случайных чисел.

35.Заменить нулями элементы между минимальным и максимальным, кроме них самих.

36.Найти сумму элементов массива А, больших данного числа В (В вводить с клавиату-ры). Вывести массив А и сумму.

37.Поменять местами максимальный элемент массива и последний. При этом сформиро-вать новый массив. Вывести оба массива.

38.Вывести сумму номеров четных элементов, а так же сам исходный массив.

39.Найти сумму всех четных элементов массива, стоящих на четных местах. Вывести сумму и исходный массив.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Clane   Задачи от Romario   18.11.2002 19:14
AlaRic   Re: Задачи от Romario   18.11.2002 20:56
Ivs   Re: Задачи от Romario   19.11.2002 0:45
AlaRic   Re: Задачи от Romario   19.11.2002 1:03
Alex   Re: Задачи от Romario   19.11.2002 18:11
zeFes   Re: Задачи от Romario   23.11.2002 22:48
trminator   Re: Задачи от Romario   25.11.2002 22:59
trminator   Re: Задачи от Romario   25.11.2002 23:15
Romario   Re: Задачи от Romario   4.12.2002 4:21
ClaneOffline   Re: Задачи от Romario   4.12.2002 15:52
Dogmatic   Re: Задачи от Romario   4.12.2002 21:49
Romario   Re: Задачи от Romario   5.12.2002 3:25
Ivs   Re: Задачи от Romario   5.12.2002 15:23
Romario   Re: Задачи от Romario   6.12.2002 3:24
Romario   Re: Задачи от Romario   6.12.2002 3:47
Ivs   Re: Задачи от Romario   6.12.2002 16:27
Ivs   Re: Задачи от Romario   7.12.2002 1:00
Ivs   Re: Задачи от Romario   7.12.2002 1:01
Ivs   Re: Задачи от Romario   7.12.2002 1:03
Romario   Re: Задачи от Romario   7.12.2002 3:25
Romario   Re: Задачи от Romario   7.12.2002 6:54
Ivs   Re: Задачи от Romario   7.12.2002 13:16
Ivs   Re: Задачи от Romario   7.12.2002 23:21
Romario   Re: Задачи от Romario   8.12.2002 6:18
Ivs   Re: Задачи от Romario   11.12.2002 17:08
Ivs   Re: Задачи от Romario   11.12.2002 19:38
Romario   Re: Задачи от Romario   12.12.2002 4:32
Tatjanka   Помогите пожалуйста решить мне задачку. За ранее в…   28.11.2004 14:37
Altair   а новую темку создать нельзя было? Эх а какую тему…   28.11.2004 14:41
volvo   Tatjanka Зачем же поднимать такие старые темы? Мож…   28.11.2004 14:42
Altair   volvo, неужели так? я думал, что дына последовате…   28.11.2004 14:44
Tatjanka   Oi spasibo vam ogromnoe sei4as poprobuju eto v pro…   28.11.2004 14:49
Tatjanka   Vse polu4ilos!!!!!!!…   28.11.2004 14:54
Tatjanka   Eshe u menja ostalas odna zada4ka s massivom. Esli…   28.11.2004 15:00
volvo   Tatjanka var i: integer;  a, b, c…   28.11.2004 15:03


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 25.04.2024 7:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name