Program esep8; uses crt; var x,y,z,s,p: double; - вопрос №70390868 от Dildora13 28.02.2023 13:02

Question

Информатика: 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.

Dildora13 · Answer

Сама по себе программа не дописана. Возможно, нужно такое решение.

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 S<P then write('ответ: ',S,'<',P)
else 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);

Program esep8; uses crt; var x,y,z,s,p: double; begin clrscr; writeln('x,y,z-енгиз'); readln(x,y,z);

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.

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