Вопрос по информатике:
Program esep8;
Uses crt;
var x,y,z,S,P:double;
begin
clrscr;
writeln('x,y,z-енгиз');
readln(x,y,z);
S:=x+y+z;
P:=x*y*z;
If S>P then write('косынды улкен=',S,'>',P);
Else if s
',P)
else write('кобейтинди улкен',S,'>',P)
readln;
end.
Пожаловаться
- 21.09.2017 10:03
- Информатика
- remove_red_eye 10062
- thumb_up 20
Ответы и объяснения 1
Сама по себе программа не дописана. Возможно, нужно такое решение.
Program esep8;
Uses crt;
var x,y,z,S,P:double;
begin
clrscr;
writeln('Введите: x,y,z');
readln(x,y,z);
S:=x+y+z;
P:=x*y*z;
If S>P then
write('Ответ: ',S,'>',P)
еlse If Selse write('Ответ: ',S,'=',P);
readln;
end.
Program esep8;
Uses crt;
var x,y,z,S,P:double;
begin
clrscr;
writeln('Введите: x,y,z');
readln(x,y,z);
S:=x+y+z;
P:=x*y*z;
If S>P then
write('Ответ: ',S,'>',P)
еlse If Selse write('Ответ: ',S,'=',P);
readln;
end.
Пожаловаться
- 22.09.2017 12:20
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы