Найти среднее арифметическое средних чисел каждой тройки

@kosmas94 · Регистрация: 20.02.2015

Студворк — интернет-сервис помощи студентам

Даны две тройки вещественных чисел. В каждой тройке все числа различные. Найти среднее арифметическое средних чисел каждой тройки (средним назовем такое число в тройке, которое больше наименьшего из чисел данной тройки, но меньше наибольшего).

Добавлено через 1 минуту
ребята выручайте !на зачет! простая задача школьная программа для меня сложно это( не нужно не каких заумных формул или выражений , 9 класс же

@SuperKir · 13.03.2015, 20:29

Зачем создавать одну и ту же тему, если ответ тебе уже дали, причем 3 разных варианта.
Клик

@kosmas94 · 13.03.2015, 20:38 **[ТС]**

мне нужно по ПАСКАЛЬ ABC а не турбо паскаль!или ты не различаешь?

Добавлено через 1 минуту
от куда такое может быть в 9-м классе :
TasksArray = Array[1..3] of Double;

var x,y: TasksArray;
mid1,mid2: Double;
i: Integer;

@SuperKir · 13.03.2015, 20:41

kosmas94, скопируй код и вставь...

Добавлено через 3 минуты

Сообщение от kosmas94

от куда такое может быть в 9-м классе :
TasksArray = Array[1..3] of Double;
var x,y: TasksArray;
mid1,mid2: Double;
i: Integer;

Там не 1 вариант... Найти среднее арифметическое средних чисел каждой тройки

@kosmas94 · 13.03.2015, 20:45 **[ТС]**

ну не один не подходит ! ты думай сам 9 класс.....программа не может быть огромной....как все в той теме

@SuperKir · 13.03.2015, 21:04

Сообщение от kosmas94

ну не один не подходит ! ты думай сам 9 класс.....программа не может быть огромной....как все в той теме

Эм... какая к черту разница, какой класс?
Есть задача - есть несколько решений. Не нравится - пишите своё.

@kosmas94 · 13.03.2015, 21:11 **[ТС]**

получается нет такого решения какое мне нужно, я же вижу что в программах которые мне присылают такие команды какие мы не изучали.....или не доходит до тебя?

@SuperKir · 13.03.2015, 21:19

kosmas94, Кажется, не доходит до Вас.
Не изучали? - Изучите.
Ну или пишите сами тем, что изучали. Мы откуда знаем, что Вам преподают в школах в 9м классе?

@kosmas94 · 13.03.2015, 21:39 **[ТС]**

легко догадаться и сравнить
вот с 9 класса задачи
Задача 5

Pascal
1
2
3
4
5
6
7
program pf4; 
var a,b,c:integer; 
begin 
read(a,b,c); 
if (a=b) and (a=c) and (b=c) then write ('ravnost') 
 else write ('neravnost'); 
end.

Задача 2

Pascal
1
2
3
4
5
6
7
program pf3; 
var a,x:real; 
begin 
read(x); 
a:=(2*x+(sqr(sin(x))))/(sqrt((sqr(x)-25))); 
write(a); 
end.

Задача 7

Pascal
1
2
3
4
5
6
7
8
9
10
program pf2; 
var i:integer; 
begin 
i:=1; 
while i<=100 do 
begin 
if (i mod 2=0) then write(i,' '); 
i:=i+1; 
end; 
end.

Задача 8

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program pf; 
var N,i,c,s:integer; 
begin 
read(N); 
s:=0; 
i:=1; 
while i<=N do 
begin 
s:=s+sqr(i); 
i:=i+1; 
end; 
writeln (s); 
end.

вот и сравни с теми что присылали

@volvo · 14.03.2015, 01:18

Не по теме:

Сообщение от kosmas94

вот с 9 класса задачи

:wall: Деградация какая-то всеобщая. Подобные программы пишут на втором уроке компьютерной грамотности обычно. А те, которые по ссылке - уже на третьем. Что, годами сидеть и писать вот по этому приведенному в предыдущем посте шаблону? На кой тогда вообще программировать?

@Joy · 14.03.2015, 08:35

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a1,a2,a3,a4,a5,a6:real;
function sr(a1,a2,a3:real):real;
begin
  if ((a1<=a2) and (a1>=a3)) or ((a1<=a3) and (a1>=a2)) then sr:=a1 else
  if ((a3<=a2) and (a3>=a1)) or ((a3<=a1) and (a3>=a2)) then sr:=a3 else
    sr:=a2;
end;
begin
  write('Введите две тройки чисел:');
  readln(a1,a2,a3,a4,a5,a6);
  writeln('Среднее арифметическое 2-х средних чисел =',(sr(a1,a2,a3)+sr(a4,a5,a6))/2:0:4);
end.

@Cyborg Drone · 15.03.2015, 20:49

Комментарий модератора

kosmas94, я рекомендовал Вам прочитать правила. Однако, Вы игнорировали мои требования. А требования администрации форума должны выполняться немедленно и безусловно. Вы создали тему-кросспост, неуважительно относитесь к участникам форума. Пока - предупреждение.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@kosmas94 2 / 2 / 0 Регистрация: 20.02.2015 Сообщений: 12

	Найти среднее арифметическое средних чисел каждой тройки 13.03.2015, 20:20. Показов 4553. Ответов 11 Метки нет (Все метки) Даны две тройки вещественных чисел. В каждой тройке все числа различные. Найти среднее арифметическое средних чисел каждой тройки (средним назовем такое число в тройке, которое больше наименьшего из чисел данной тройки, но меньше наибольшего). Добавлено через 1 минуту ребята выручайте !на зачет! простая задача школьная программа для меня сложно это( не нужно не каких заумных формул или выражений , 9 класс же 0

@SuperKir 475 / 427 / 290 Регистрация: 10.03.2015 Сообщений: 1,782
	13.03.2015, 20:29
	Зачем создавать одну и ту же тему, если ответ тебе уже дали, причем 3 разных варианта. Клик 0

@kosmas94 2 / 2 / 0 Регистрация: 20.02.2015 Сообщений: 12
	13.03.2015, 20:38 [ТС]
	мне нужно по ПАСКАЛЬ ABC а не турбо паскаль!или ты не различаешь? Добавлено через 1 минуту от куда такое может быть в 9-м классе : TasksArray = Array[1..3] of Double; var x,y: TasksArray; mid1,mid2: Double; i: Integer; 0

@kosmas94 2 / 2 / 0 Регистрация: 20.02.2015 Сообщений: 12
	13.03.2015, 20:45 [ТС]
	ну не один не подходит ! ты думай сам 9 класс.....программа не может быть огромной....как все в той теме 0

@kosmas94 2 / 2 / 0 Регистрация: 20.02.2015 Сообщений: 12
	13.03.2015, 21:11 [ТС]
	получается нет такого решения какое мне нужно, я же вижу что в программах которые мне присылают такие команды какие мы не изучали.....или не доходит до тебя? 0

@SuperKir 475 / 427 / 290 Регистрация: 10.03.2015 Сообщений: 1,782
	13.03.2015, 21:19
	kosmas94, Кажется, не доходит до Вас. Не изучали? - Изучите. Ну или пишите сами тем, что изучали. Мы откуда знаем, что Вам преподают в школах в 9м классе? 0