Сколько различных слов (в слове две буквы) можно составить из букв r, t, y, u, i? буквы в слове не повторяются.

132

218

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

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

baseke2018

Информатика

4,5(39 оценок)

It, ru(но это не точно),

Лиза0611

Информатика

4,6(53 оценок)

решение на free pascal ide 2.6.0

var s: array[1..15] of integer; k,max,arf: integer; begin max: =0; for k: =1 to 15 doread(s[k]); for k: =1 to 5 doif s[k]> max then max: =s[k]; for k: =7 to 15 doarf: =arf+k; arf: =round(arf/9); for k: =1 to 15 doif s[k]> arf then s[k]: =max; for k: =1 to 15 dowriteln('s[',k,']= ',s[k]); writeln('srednee arifmeticheskoe = ',arf); writeln('max = ',max); readln; readln; end.c