Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 12.05.2010
Сообщений: 5

Из массива вывести те числа которые делятся на 2 и 3 и больше данного числа, узнать сумму этих чисел

12.05.2010, 23:16. Показов 1997. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
народ будти добры помогите решить задачки!
no 1!
из халявных чисел массива вывести те числа которые делятся на 2 и 3 и больше данного числа. узнать сумму этих чиселю
no 2!
сделать прогу которая выводит на экран результат функции y=sin(x)^2+3tg(x)-2 и брать значение углов от 5 до 50 градусов с шагом в 5 градусов
зарание спасибо!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
12.05.2010, 23:16
Ответы с готовыми решениями:

из свободных чисел массива вывести те числа которые делятся на 2 и 3 и больше данного числа. узнать сумму этих чиселю
народ будти добры помогите решить задачки! no 1! из свободных чисел массива вывести те числа которые делятся на 2 и 3 и больше данного...

Из последовательности 10 двоичный целых чисел выбрать числа, которые делятся на 3 и найти сумму этих чисел
Из последовательности 10 двоичный целых чисел выбрать числа, которые делятся на 3 и найти сумму этих чисел.

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

4
12.05.2010, 23:23

Не по теме:

из халявных?

0
 Аватар для STGE
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
12.05.2010, 23:27
2.
Pascal
1
2
3
4
5
6
7
g:=5;
while g<=50 do
begin
y:=sin(sqr(180/pi*g))+(3*sin(180/pi*g))/cos(180/pi*g)-2;
writeln(y:6:3);
inc(g,5);
end;
Добавлено через 3 минуты
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
sum:=0;
write('введите число: ');
readln(a);
for i:=1 to n do
if (b[i]>a) and (b[i] mod 2 = 0) and (b[i] mod 3 = 0) then
begin
write(b[i]:3);
sum:=sum+b[i];
end;
writeln;
write('сумма = ',sum);
0
0 / 0 / 0
Регистрация: 12.05.2010
Сообщений: 5
12.05.2010, 23:28  [ТС]
я имелл ввиду из любых чисел я просто в этом деле полный 0 и мне нузна ваша помошь!!
0
 Аватар для lexus_ilia
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
13.05.2010, 00:14
Вот, я теперь в таких темах буду делать для начала вот так:
Читайте тему Как запостить тему, чтобы не получить ответ.
А в дальнейшем, наверное, следует удалять такие темы, которую создали Вы (dimknot)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.05.2010, 00:14
Помогаю со студенческими работами здесь

Вывести все целые числа меньше 0 и больше заданного числа N которые делятся на 3
напишите программу печатающую все целые числа меньше 0 и больше заданного числа N которые делятся на 3,только простенькую для школьников

Найдите сумму и количество элементов массива, которые больше данного числа k
Задача: Найдите сумму и количество элементов массива, которые больше данного числа k. Не умею писать программы, помогите пожалуйста.

Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма больше
Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма больше

Дано N. Посчитать количество чисел от 1 до N, которые делятся на сумму своих цифр. Вывести эти числа
Доброго времени суток, я студент, мне преподаватель дал задание, &quot;Дано число N. Нужно найти числа от 1 до N, которые делятся на сумму своих...

Вводить числа, пока не встретится 0. Найти среднее арифметическое этих чисел, которые делятся на 3
Вводить числа, пока не встретится 0. Найти среднее арифметическое этих чисел, которые делятся на 3.


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
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. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru