Регистрация
RIKOzm
11.01.2022 19:15
Информатика
Есть ответ 👍

Pfrjlbhjdfnm rjljv wtpfhz @информатика@

185
232
Посмотреть ответы 2

Ответы на вопрос:

DarthVader111103
DarthVader111103
4,8(38 оценок)
Pfrjlbhjdfnm rjljv wtpfhz
даша3609
даша3609
4,7(19 оценок)
Var a,b,c,d: integer; begin writeln('a, b, c: '); readln(a,b,c); if (a> b)and(a< c)or(a> c)and(a< b)   then begin d: =b; b: =c; c: =d; end   else if (b> a)and(b< c)or(b> c)and(b< a)         then begin d: =a; a: =c; c: =d; end         else begin d: =a; a: =b; b: =d; end; writeln('a = ',a,' b = ',b,' c = ',c); end. пример: a, b, c: 8 5 2 a = 2 b = 5 c = 8

Популярно: Информатика