подсчитать количество отрицательных чисел среди a,b,c
5-9 класс
|
это паскаль или что если он то .
program prog;
var a,b,c,i:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then i:=i+1;
if b<0 then i:=i+1;
if c<0 then i:=i+1;
writeln('Количество отрицательных чисел: ',i);
end.
Другие вопросы из категории
оценки на соревнованиях по фигурному катанию выставляются 9 судьями. потом одна самая высокая и самая низкие оценки отбрасываются и в зачет идет среднее арифметическое оставшихся оценок. составьте программу, которая определяет зачетную оценку спортсмена. оценки судей ввести в клавиатуры (целые числа от 1 до 6)
В паскаль(цикл)
Последовательно вводится N целых чисел.найти количество отрицательных среди них
Составить алгоритм..
3 сосуда (6,10,15л.) необходимо получить 7 литров в любом из сосудов.
прошу помогите.
Читайте также
Разработать программу для подсчета количества отрицательных чисел среди целых чисел a, b, c. Программа должна иметь дружественный интерфейс. Протестировать программу для всех возможных случаев (когда количество отрицательных чисел равно 0, 1, 2 и 3).
Написать программу в Pascal.
2)В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.