Mazavinov
5 год назад
Срочно, Пожалуйста посчитайте по информатике!От этого зависит итоговая оценка!
ОТВЕТЫ
Тома
Oct 24, 2020
В след. раз пиши язык программирования это 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.
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.
- Я уже сам решил) всё равно большое спасибо
300
Смежные вопросы:
