0 / 0 / 0
Регистрация: 01.11.2012
Сообщений: 120
1

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

27.02.2013, 07:07. Показов 9166. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Известна масса каждого человека из группы. Верно ли, что масса самого тяжелого из них превышает массу самого легкого более чем в два раза?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.02.2013, 07:07
Ответы с готовыми решениями:

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

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

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

Определить, верно ли что масса самого тяжелого из человека превышает массу самого легкого из них
помогите с задачей. Известна масса каждого человека из группы. Верно ли, что масса самого тяжелого...

1
24 / 24 / 16
Регистрация: 23.01.2013
Сообщений: 129
05.03.2013, 14:05 2
Лучший ответ Сообщение было отмечено c4ntf1y как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
const n=3;
 
var
i,max,min: integer;
 mas:array[1..n] of integer;
begin
clrscr;
randomize;
 
for i:=1 to n do
    begin
    write('Масса ',i, ' человека = '); Readln(mas[i]);
    end;
 
max:=mas[1];
min:=mas[1];
 
for i:=2 to n do
begin
 If mas[i]<min Then
 min:=mas[i];
 If mas[i]>max Then
 max:=mas[i];
end;
 
If (max/2)>min Then
writeln('Масса самого тяжелого человека превышает массу самого легкого более чем в два раза')
Else
writeln('Масса самого тяжелого человека НЕ превышает массу самого легкого более чем в два раза');
end.
Добавлено через 14 секунд
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
const n=3;
 
var
i,max,min: integer;
 mas:array[1..n] of integer;
begin
clrscr;
randomize;
 
for i:=1 to n do
    begin
    write('Масса ',i, ' человека = '); Readln(mas[i]);
    end;
 
max:=mas[1];
min:=mas[1];
 
for i:=2 to n do
begin
 If mas[i]<min Then
 min:=mas[i];
 If mas[i]>max Then
 max:=mas[i];
end;
 
If (max/2)>min Then
writeln('Масса самого тяжелого человека превышает массу самого легкого более чем в два раза')
Else
writeln('Масса самого тяжелого человека НЕ превышает массу самого легкого более чем в два раза');
end.
0
05.03.2013, 14:05
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2013, 14:05
Помогаю со студенческими работами здесь

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

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

Известен рост каждого человека из группы. На сколько рост самого высокого из них превышает рост самого низкого?
Известен рост каждого человека из группы. На сколько рост самого высокого из них превышает рост...

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

Известна масса каждого предмета из некоторого набора предметов, определить среднюю массу
помогите

На сколько рост самого высокого человека из группы превышает рост самого низкого?
Известен рост каждого человека из группы.На сколько рост самого высокого из них превышает рост...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru