Уменя три карандаша: жёлтый,коричневый и чёрный.попробуй назвать самый короткий и самый длинный из карандашей ,если известно что: а)чёрный карандаш короче жёлтого ,а жёлтый короче коричневого; б)жёлтый карандаш длиннее чёрного ,а чёрный длиннее коричневого; в)коричневый карандаш длиннее жёлтого ,а жёлтый короче чёрного.
138
452
Ответы на вопрос:
{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.
Популярно: Информатика
-
daryabozhko200612.06.2020 21:24
-
Аннабель0Свит09.01.2020 02:04
-
mick6513.11.2022 18:12
-
RAYDEN0223.02.2020 21:39
-
Sofia240625.09.2020 21:39
-
егор148118.06.2020 18:54
-
Лёва989817.03.2023 20:31
-
shwabmitia26.09.2020 03:27
-
alenushkabelya30.03.2022 22:08
-
glokol04.01.2023 19:34