Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Из массива получить новый Из последовательности a1,a2, …, an, n≤10, ak=sin1/k! ,получить новую последовательность, заменив каждый элемент, меньший по модулю величины 0.2, его порядковым номером, и определить число таких замен. https://www.cyberforum.ru/ pascalabc/ thread795998.html Все элементы массива разделить на первый элемент Pascal ABC
Дан массив. Все его элементы: а) разделить на первый элемент б) увеличить на число b.
Pascal ABC Вывести на экран только те числа, у которых сумма первых двух цифр равна сумме двух последних Дан массив из n натуральных четырехзначных чисел. Вывести на экран только те, у которых сумма первых двух цифр равна сумме двух последних. https://www.cyberforum.ru/ pascalabc/ thread795996.html Pascal ABC Вычислить произведение отрицательных элементов последовательности https://www.cyberforum.ru/ pascalabc/ thread795995.html
В последовательности действий чисел a1, a2, …, an. Есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов P2. Сравнить модуль P2 с модулем P1, указать какое из произведений по модулю больше.
Pascal ABC Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.
Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.
Pascal ABC Багаж пассажира https://www.cyberforum.ru/ pascalabc/ thread795913.html
Помогите пожалуйста решить, а то я что то не понимаю. 10) Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно - действительное (вес в килограммах). Выяснить, имеется ли пассажир, багаж которого превышает багаж каждого из остальных пассажиров и по числу...
Pascal ABC Рекурсия. Вычислить значение выражения https://www.cyberforum.ru/ pascalabc/ thread795911.html
Помогите пожалуйста решить, а то я что то не понимаю. 2. Используя рекурсивную функцию, для заданного натурального N и вещественного x (x>0) вычислить значение выражения: \sqrt{x+\sqrt{x+...+\sqrt{x}}}
Написать рекурсивную функцию для нахождения n-го члена прогрессии Pascal ABC
Помогите пожалуйста решить, а то я что то не понимаю. 9) 1. Даны первый член и разность арифметической прогрессии. Написать рекурсивную функцию для нахождения: а) n-го члена прогрессии; б) суммы n первых членов прогрессии.
Pascal ABC Строки. Подсчет количества буквы https://www.cyberforum.ru/ pascalabc/ thread795907.html
Помогите пожалуйста решить, а то я что то не понимаю. 8) Составить программу для нахождения общего количества заданной буквы в трех заданных предложениях. (Определить функцию для расчета количества некоторой буквы в предложении.)
Pascal ABC Строки. Порядковый номер первой пары одинаковых соседних символов https://www.cyberforum.ru/ pascalabc/ thread795905.html
Помогите пожалуйста решить, а то я что то не понимаю. 7) Дано предложение. Определить порядковые номера первой пары одинаковых соседних символов. Если таких символов нет, то должно быть напечатано соответствующее сообщение.
Pascal ABC Двумерный массив. Количество отрицательных элементов в строке
Помогите пожалуйста решить, а то я что то не понимаю. 6)Дан двумерный массив. Определить количество отрицательных элементов заданной строки.
Pascal ABC Одномерный массив. Сумма четных элементов на четных местах https://www.cyberforum.ru/ pascalabc/ thread795903.html
Помогите пожалуйста решить, а то я что то не понимаю. 5) В массиве из 10 чисел подсчитать сумму элементов, стоящих на четных местах.
24 / 24 / 16
Регистрация: 23.01.2013
Сообщений: 129
05.03.2013, 14:05 0

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

05.03.2013, 14:05. Показов 9212. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Известна масса каждого человека из группы. Верно ли, что масса самого тяжелого из них превышает массу самого легкого более чем в два раза Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2013, 14:05
Готовые ответы и решения:

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

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

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

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

1
05.03.2013, 14:05
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2013, 14:05
Помогаю со студенческими работами здесь

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

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

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

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

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

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

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