Срочно, помогите по информатике! От этого зависит итоговая оценка!
Answers & Comments
Пирокар
В след. раз пиши язык программирования это Pascal
PROGRAM AYA;varn,m,k:integer;BEGIN writeln('BBecTu n,m,k'); read(n,m,k); if (n>m) and (n>k) then begin writeln('n caMbiII 6oJlbIIIoII'); end; if (m>n) and (m>k) then begin writeln('m caMbiII 6oJlbIIIoII'); end; if (k>m) and (k>n) then begin writeln('k caMbiII 6oJlbIIIoII'); end; if (n=m) and (n=k) then begin writeln('oHu paBHbI Bce'); end;END.
2 votes Thanks 1
Ilham2017
Я уже сам решил) всё равно большое спасибо
Answers & Comments
PROGRAM AYA;varn,m,k:integer;BEGIN writeln('BBecTu n,m,k'); read(n,m,k); if (n>m) and (n>k) then begin writeln('n caMbiII 6oJlbIIIoII'); end; if (m>n) and (m>k) then begin writeln('m caMbiII 6oJlbIIIoII'); end; if (k>m) and (k>n) then begin writeln('k caMbiII 6oJlbIIIoII'); end; if (n=m) and (n=k) then begin writeln('oHu paBHbI Bce'); end;END.