Есть ответ 👍

Уменя три карандаша: жёлтый,коричневый и чёрный.попробуй назвать самый короткий и самый длинный из карандашей ,если известно что: а)чёрный карандаш короче жёлтого ,а жёлтый короче коричневого; б)жёлтый карандаш длиннее чёрного ,а чёрный длиннее коричневого; в)коричневый карандаш длиннее жёлтого ,а жёлтый короче чёрного.

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

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


Ерунда, а не трижды одно и то же разными словами.

{1} var a,b,n: integer; c: real; begin read(n); for a : = 1 to n-1 do for b : = a to n-1 do   begin   c : = sqrt(sqr(a) + sqr(b));   if c < n then   if c = trunc(c) then       writeln(a: 3,' ',b: 3,' ',c: 3);   end; end. {2} var n,i: integer; s,x: real; begin read(n); s : = 0; for i : = 1 to n do   begin   read(x);   s : = s + x;   end; writeln(s/n); end.

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