Предмет: Информатика,
автор: Blondinchik59
посчитать количество отрицательных чисел среди чисел m,n,p
Ответы
Автор ответа:
0
var m,n,p,k:integer;
begin
writeln('Введите 3 числа:');
readln(m,n,p);
k:=0;
if m<0 then k:=k+1;
if n<0 then k:=k+1;
if p<0 then k:=k+1;
writeln('k=',k);
end.
Пример:
Введите 3 числа:
12 -7 31
k=1
begin
writeln('Введите 3 числа:');
readln(m,n,p);
k:=0;
if m<0 then k:=k+1;
if n<0 then k:=k+1;
if p<0 then k:=k+1;
writeln('k=',k);
end.
Пример:
Введите 3 числа:
12 -7 31
k=1
Автор ответа:
0
Большое спасибо)
Автор ответа:
0
Пожалуйста
Автор ответа:
0
не поможете еще с одним заданием?)
Интересные вопросы
Предмет: История,
автор: cousin0000
Предмет: МХК,
автор: Аноним
Предмет: Геометрия,
автор: alekshirs969
Предмет: Математика,
автор: аспирант2014
Предмет: Математика,
автор: Busarov