Вопрос по информатике:
Даны действительные числа x, y, z. Сколько среди них отрицательных? Паскаль abc
Пожаловаться
- 02.12.2017 17:02
- Информатика
- remove_red_eye 13319
- thumb_up 37
Ответы и объяснения 1
Var
x,y,z:real;
k:byte;
Begin
k:=0;
Write('x = ');ReadLn(x);
if x<0 then k:=k+1;
Write('y = ');ReadLn(y);
if y<0 then k:=k+1;
Write('z = ');ReadLn(z);
if z<0 then k:=k+1;
WriteLn('Количество отрицательных,среди введённых: ',k);
End.
x,y,z:real;
k:byte;
Begin
k:=0;
Write('x = ');ReadLn(x);
if x<0 then k:=k+1;
Write('y = ');ReadLn(y);
if y<0 then k:=k+1;
Write('z = ');ReadLn(z);
if z<0 then k:=k+1;
WriteLn('Количество отрицательных,среди введённых: ',k);
End.
Пожаловаться
- 03.12.2017 14:21
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы