Program esep8;Uses crt;var

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 Sgt;P then write('косынды улкен=',S,'gt;',P);
Else if s
',P)
else write('кобейтинди улкен',S,'gt;',P)
readln;
end.

Задать свой вопрос
Краснодемский Владислав
Что конкретно требуется по заданию?
Jaroslava Ranetova
Поправить программку либо определить результат работы?
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 Sgt;P then
write('Ответ: ',S,'gt;',P)
еlse If Slt;P then write('Ответ: ',S,'lt;',P)
else write('Ответ: ',S,'=',P);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт