Вопрос по информатике:
Написать 2 программы на языке Pascal.
1 программа. Задано число x. Определить, является ли число x положительным или нет. Выдать на экран соответствующее сообщение.
2 программа . Дано три числа x, y, z. Вычислить сумму только положительных чисел из трех данных.
Подсказка:
1. Ввод исходных данных
2. Проверка условия x>0, если условие выполняется, то sum:=sum+x. Аналогично проверяются условия с y и z.
3. Вывод результата.
- 17.03.2015 14:20
- Информатика
- remove_red_eye 12921
- thumb_up 38
Ответы и объяснения 2
program p1;
var x:integer;
begin
write ('x=');
read (x);
if x>0 then
writeln ('Число x положительное.');
if x=0 then
writeln ('Число x нейтральное.');
if x<0 then
writeln ('Число x отрицательное');end.
Программа 2.
program p2;
var x,y,z,s:real;
begin
write ('x=');
read (x);
write ('y=');
read (y);
write ('z=');
read (z);
if x>0 then
s:=s+x;
if y>0 then
s:=s+y;
if z>0 then
s:=s+z;
if x+y+z<=0 then
writeln ('Все числа отрицательные либо нейтральные. Операция невозможна.');
if x+y+z>0 then
writeln ('s=', s);
end.
- 19.03.2015 00:24
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.