Даны действительные числа x, y, z. Сколько среди них отрицательных.
Даны действительные числа x, y, z. Сколько среди них отрицательных.
Гость
Ответ(ы) на вопрос:
ГостьProgram testabc;
var x,y,z:real;
i:integer;
begin
i:=0;
writeln('Введите 3 числа: ');
readln(x,y,z);
if x<0 then i:=i+1;
if y<0 then i:=i+1;
if z<0 then i:=i+1;
Writeln(i,' отрицательных');
end.
Не нашли ответ?
Похожие вопросы