Регистрация
123дудочка123
04.06.2020 19:13
Информатика
Есть ответ 👍

Помогите пожалуйста с заданием про елку
ИНФОРМАТИКА

200
324
Посмотреть ответы 1

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

raminowka
raminowka
4,8(86 оценок)
Var     a,b,c,mx,mn: longint; begin       read(a,b,c);     if (a > = b)and(a > =  c) then  mx : = a;     if (b > = a)and(b > = c) then mx : = b;       if (c > = a)and(c > = b) then mx : = c;             if (a < = b)and(a < = c) then mn : = a;     if (b < = a)and(b < = c) then mn : = b;       if (c < = a)and(c < = b) then mn : = c;             writeln('минимальное  число   =  ',  mn);     writeln('максимальное число = ', mx);   end. var     x,y: real; begin     read(x, y);           if (x  < = 0)and(y  > =  0) then write('true')     else write('false'); end. var     n: longint; begin     read(n);       if (n  >   0) then inc(n);     write(n); end.

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