сервис вопросов и ответовподсчитай количество отрицательных целых чисел среди a,b,c
10-11 класс|
|
Anara1999
29 апр. 2013 г., 8:03:53 (11 лет назад)
Habibushta
29 апр. 2013 г., 10:52:09 (11 лет назад)
program fofgogjoj;
var
a,b,c,ot,pl:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then
ot:=ot+1;
if b<0 then
ot:=ot+1;
if c<0 then
ot:=ot+1;
if a>0 then
pl:=pl+1;
if b>0 then
pl:=pl+1;
if c>0 then
pl:=pl+1;
Writeln('Кол-во отрицательных чисел:',ot);
Writeln('Кол-во положительных чисел:',pl);
end.
Можно написать и короче, но я не знаю что вы уже прошли, а что нет
Ответить
Другие вопросы из категории
Разработайте алгоритм решения задачи:
12 лягушек ловят 12 комаров за 12 минут. Сколько нужно лягушек, чтобы поймать 25 комаров за 25 минут?
Что относится к алгоритмам поиска информации:
А)Последовательный перебор
Б)Блочно-последовательный
В)Совокупность данных,среди которых осуществляется поиск
Г)Половинное деление
Д)Принцип математической статистики
Е)Метод спуска по дереву
Читайте также
Задача в паскале среди 10 введенных с клавиатуры чисел подсчитать количество отрицательных и произведение положительных чисел рассмотреть случай когда
положительных чисел нет
1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел среди 10 элементов вещественного
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
Дан файл f, компоненты которого являются целыми числами.
Найти количество квадратов нечетных чисел среди компонент файла. Записать это значение в начало нового файла g. Остальные значения переписать из исходного файла f.
Вы находитесь на странице вопроса "подсчитай количество отрицательных целых чисел среди a,b,c", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.