С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Найти цифру, соответствующую разряду тысяч в записи данного числа https://www.cyberforum.ru/ pascalabc/ thread376211.html
Дано целое число, больше 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду тысяч в записи этого числа.
Вычислить заданные суммы Pascal ABC
ЧИСЛОВЫЕ РЯДЫ необходимо вычислить заданные суммы S. Каждая задача может решаться в двух вариантах: а) задано число членов суммы N; б) вычисление производить до тех пор, пока очередной член вычисляемой суммы не станет по модулю меньше заданного значения . Все последующие слагаемые в S входить не должo S=1/3+1/15+...+1/(4*k*k-1)
Pascal ABC Ввести четырехзначное число. Определить совпадают ли в нем первая и последняя цифры https://www.cyberforum.ru/ pascalabc/ thread376121.html
Ввести четырехзначное число. Определить совпадают ли в нем первая и последняя цифры. Написать программу, которая бы по введённому номеру единицы измерения (1-миллиграм, 2-грамм, 3-килограмм, , 4-центнер, 5-тонна) и масса M выводит соответствующее значение массы в килограммах. Помогите сделать.вообще не шарю.. Заранее огромное Спасибо.
Pascal ABC В массиве заменить нулями элементы, модуль которых при делении на p дает в остатке q https://www.cyberforum.ru/ pascalabc/ thread376085.html
Дан массив из n целых чисел и целые числа p,q (p>q>0). В массиве заменить нулями элементы, модуль которых при делении на p дает в остатке q.
Pascal ABC Заменить все малые буквы одноименными большими
заменить все малые буквы одноименными большими.
Pascal ABC Определить номер первого нуля в массиве 4)Составьте программу для решения одной из следующих задач. 4.7. Определить номер первого нуля в массиве А или выдать сообщение, что нулей в массиве нет; https://www.cyberforum.ru/ pascalabc/ thread376056.html
Pascal ABC Найти количество отрицательных элементов в двух массивах const max=100000000; type a=arrayof integer; var massA,massB:a; otvet:integer; procedure massivAB(var m:a; c:char; otvet:integer); var i,n:integer; begin randomize; write('Введите количество элементов массива ',c,': '); readln(n); writeln('Массив ',c,': '); https://www.cyberforum.ru/ pascalabc/ thread375978.html Какое значение имела целочисленная переменная n перед началом выполнения алгоритма? Pascal ABC
Нужно срочно сделать олимпиаду сегодня до 13:00 по МСК Помогите плз. Задача №6 Петя отсканировал 8 изображений одинакового размера и с одинаковыми параметрами сканирования (разрешением и глубиной цвета). Выбранный им формат записи файла хранит несжатое растровое изображение и дополнительную информацию, причем объем дополнительной информации не зависит от объема файла и всегда составляет 128...
Pascal ABC Задача про счастливые билетики. Определить, является ли данный шестизначный номер автобусного билета счастливым. Примечание. Номер считается счастливым, если сумма трёх первых цифр совпадает с суммой трёх последних цифр. Как моно решить задачу с помощью циклов (именно циклов) в паскале АВС??? https://www.cyberforum.ru/ pascalabc/ thread375932.html Pascal ABC Даны три целых числа, найти среднее из них. Средним называется число, которое больше наименьшего из данных чисел, но меньше наибольшего https://www.cyberforum.ru/ pascalabc/ thread375931.html
Кто может решить данную задачку с помощью циклов в паскале АВС? Даны три целых числа, найти среднее из них. Средним называется число, которое больше наименьшего из данных чисел, но меньше наибольшего.
Pascal ABC Определить каких среди чисел больше: положительных или отрицательных
Как данную задачу можно решить в паскале АВС при помощи циклов? Последовательно вводятся N целых чисел. Определить каких среди них больше: положительных или отрицательных.
Pascal ABC Найти в диапазоне от А до В все числа, в которых младшая цифра не повторяется помогите пожалуйста! найти в диапазоне от А до В все числа в которых младшая цифра не повторяется (пример: 122 - нельзя, 112- можно) https://www.cyberforum.ru/ pascalabc/ thread375868.html
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
01.11.2011, 19:28 0

Определить каких среди чисел больше: положительных или отрицательных - Pascal ABC - Ответ 2127279

01.11.2011, 19:28. Показов 4143. Ответов 3
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var a, kp, ko, i: integer;
label 1;
begin
     for i:=1 to 10 do
     begin
     writeln ('Введите число');
     readln(a);
     if a>0 then inc(kp) else inc(ko);
     end;
     if kp>ko then writeln ('Положительных чисел больше') else writeln ('Отрицательных чисел больше');
end.


Вернуться к обсуждению:
Определить каких среди чисел больше: положительных или отрицательных Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
01.11.2011, 19:28
Готовые ответы и решения:

Определить каких среди чисел больше: положительных или отрицательных
Как данную задачу можно решить в паскале АВС при помощи циклов? Последовательно вводятся N целых...

Определить, каких чисел в массиве больше - чётных положительных или нечётных отрицательных
Получить массив N случайных чисел, лежвщих в интервале от - 50до100. Определить каких чисел в нём...

Определить, каких элементов массива больше - положительных или отрицательных
Ребят, срочно нужно сделать следующие программы: 1) N=15 Определить, каких элементов больше...

Определить, каких элементов в последовательности больше: положительных, отрицательных или нулей
составить программу, определяющую , какиз элементов в последовательности больше?положительных ,...

3
01.11.2011, 19:28
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
01.11.2011, 19:28
Помогаю со студенческими работами здесь

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

Дан файл с действительными числами. Определить каких элементов больше – отрицательных или положительных
Дан файл с действительными числами. Определить каких элементов больше – отрицательных или...

Определить, каких - положительных или отрицательных - значений больше принимает функция Y=3sin(x+5) на отрезке [-5;3]
Помогите пожалуйста с задачей. И по ней построить блок схему.Определить, каких - положительных или...

Определить, каких элементов больше положительных или отрицательных элементов массива
N=15 Определить, каких элементов больше положительных или отрицательных элементов массива

0
Новые блоги и статьи
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
Использование GraphQL в Go (Golang)
InfoMaster 08.01.2025
Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор?
Alexander-7 08.01.2025
Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru