Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
valik75
0 / 0 / 0
Регистрация: 10.06.2012
Сообщений: 1
1

Верно ли, что средняя стоимость автомобилей превышает среднюю стоимость мотоциклов

13.06.2012, 11:54. Просмотров 1483. Ответов 1
Метки нет (Все метки)

Известны стоимости нескольких марок легковых автомобилей и мотоциклов. Верно ли, что средняя стоимость автомобилей превышает среднюю стоимость мотоциклов более чем в 3 рала? Стоимость одного автомобиля превышает $5000, что больше стоимости любой марки мотоцикла.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2012, 11:54
Ответы с готовыми решениями:

Напечатать стоимость каждого из автомобилей, в которых мощность двигателя не превышает 80 л.с.
Известны данные о мощности двигателя (в л.с.) и стоимости 30-ти маркам легковых...

Записи. Найти среднюю стоимость автомобилей, возраст которых не привышает 6 лет.
известны стоимость и возраст каждой из пяти моделей легковых автомобилей....

Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара.
В массиве записана информация о стоимости 20 видов товара. Определить, сколько...

Определить,среднюю стоимость обуви каждого цвета
Есть сведения о партии обуви:...

Дан массив цен n товаров. Определить среднюю стоимость товаров
разработать программу для слудующей задачи,Дан массив цен n товаров.Определить...

1
Potelkin
0 / 0 / 1
Регистрация: 22.03.2013
Сообщений: 10
24.03.2013, 23:31 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
uses crt;
var kar:array[1..255] of integer;
    moto:array[1..255] of integer;
    a,b:real;
    n,i:integer;
begin
Write('Введите количество Машин и Мотоциклов: ');
readln(n);
for i:=1 to n do begin
    write('Введите стоимость ',i,'й) машины: ');
    readln(kar[i]);
end;
for i:=1 to n do begin
    write('Введите стоимость ',i,'го) Мотоцикла: ');
    readln(moto[i]);
end;
for i:=1 to n do begin
a:=(a+kar[i]);
b:=(b+moto[i]);
end;
a:=a/n;
b:=b/n;
if (a/3) > b then
write('Верно!')
else
write('Не верно!');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2013, 23:31

Верно ли что первая цифра числа не превышает m.
а то зачет не поставят((( помогите решить пожалуйста хоть что нибудь: 1)все...

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

Массив: определить среднюю зарегистрированную скорость всех автомобилей
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru