сервис вопросов и ответовДаны три целых числа. Определить, сколько среди них положительных чисел. составить программу на языке Паскаль
10-11 класс|
|
Dasha555kax
01 авг. 2013 г., 7:09:31 (10 лет назад)
Viya
01 авг. 2013 г., 9:39:08 (10 лет назад)
var a,b,c,col:integer;
begin
col:=0;
readln(a,b,c);
if (a>0) then col:=col+1
else if (b>0) then col:=col+1
else if (c>0) then col:=col+1;
writeln('Положительных чисел: ',col);
readln;
end.
Ответить
Другие вопросы из категории
Записать в десятичной системе счисления числа
110001111(2)
101(8)
А9(16)
Написать программу в C++
Дан одномерный массив x из n элементов.
Найти порядковый номер первого по счёту
положительного элемента с чётным порядковым номером. Все отрицательные элементы
после него переписать в массив y.
Читайте также
Циклические алгоритмы.СоставьтеЦиклические алгоритмы.Составьте блок- схему для решения следующих задач:
1) Вводятся 100 чисел.Определить сколько среди них положительных и сколько отрицательных.(Числа вводятся в одну переменную в цикле)
2) Алгоритм вычисления суммы квадратов десяти производных чисел, водимых с клавиатуры в процесс выполнения алгоритма
И НАПИШИТЕ ПРОГРАММУ ДЛЯ КАЖДОЙ ЗАДАЧИ
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
ДАМ 22 ПУНКТА СРОЧНО
СОСТАВИТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ
данны два числа a и b.составить программу для вычисления среднего арифметического кубоы этих чисел
Вы находитесь на странице вопроса "Даны три целых числа. Определить, сколько среди них положительных чисел. составить программу на языке Паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.