Количество целых чисел среди трех заданных. - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.82/11:

@лёлька 17 / 17 / 0 Регистрация: 02.02.2010 Сообщений: 92

	Количество целых чисел среди трех заданных. 09.02.2010, 13:19. Показов 2310. Ответов 1 Метки нет (Все метки) Написать программу, которая подсчитывает количество целых чисел среди трех заданных. 0

Лучшие ответы (1)

Сообщение: #533231

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

09.02.2010, 13:19

Ответы с готовыми решениями:

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

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

Найти количество положительных и отрицательных чисел среди заданных чисел
Найти количество положительных и отрицательных чисел среди чисел вида: sin x^n при х=1,13; n=1…30.

Puporev

Почетный модератор

64312 / 47609 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

09.02.2010, 14:23

Сообщение было отмечено лёлька как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var a,b,c:real;
    k:byte;
begin
clrscr;
write('Введите 3 числа:');
readln(a,b,c);
k:=ord(frac(a)=0)+ord(frac(b)=0)+ord(frac(c)=0);
write('Целых чисел=',k);
readln
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

09.02.2010, 14:23

Помогаю со студенческими работами здесь

Среди заданных чисел найти количество пар чисел, модуль разности которых равен заданному числу
Дана строка из n целых чисел. Найти кол-во пар чисел модуль разности которых равен d. ВХОДНЫЕ ДАННЫЕ СТРОКИ(STRING)!!! Пример: В первой...

количество целых чисел среди чисел заданого множества чисел
здравствуйте дорогие форумчане:):):):) пожалуйста помогите решить задачку *напишите программу, определяющую количество целых чисел среди...

Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательных,то найти максималь
Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательных,то...

Ввести с клавиатуры 10 целых чисел и найти среди них количество нулей и сумму положительных
Нужно ввести с клавиатуры 10 целых чисел и найти среди них а) количество нулей б) сумму положительных. Помогите пожалуйста решить с помощью...

Условие: Найти максимальное из трех заданных чисел
Помогите решить с 2 по 5 задачу)) Задачи прикреплены)))

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

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .	Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .	Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .

Наверх