Регистрация
Valeria13092004
15.10.2020 03:59
Информатика
Есть ответ 👍

вопрос части B про установление соответствий​

278
321
Посмотреть ответы 1

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

megachiglakov
megachiglakov
4,4(13 оценок)
Var     a,b,c,k: integer; begin k: =1; read(a,b,c); if a=b then k: =k+1; if b=c then k: =k+1; if c=a then k: =k+1; if k=1 then k: =0 else     if k=4 then k: =3; write(k) end.

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