подсчитать количество отрицательных чисел a,b,c.
Ответы на вопрос
Ответил andrey35159
0
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.
Новые вопросы
Английский язык,
6 лет назад
Биология,
6 лет назад
Геометрия,
10 лет назад
Биология,
10 лет назад
Математика,
10 лет назад