Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/19: Рейтинг темы: голосов - 19, средняя оценка - 5.00
Shuler02
1 / 1 / 0
Регистрация: 20.12.2011
Сообщений: 38
1

Известен рост 30 учеников школы, сколько из них имеет рост больше 170 см

01.04.2012, 19:25. Просмотров 3691. Ответов 1
Метки нет (Все метки)

Известен рост 30 учеников школы. Сколько из них имеет рост больше 170см? Можно ли сформировать баскетбольную команду (в команде должно быть не менее пяти человек ростом больше 170 см)?
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.04.2012, 19:25
Ответы с готовыми решениями:

Текстовые файлы. Выбрать фамилии тех учеников, чей рост больше 170 см
напишите программный код!Для набора в баскетбольную команду среди учеников 7 класса выбрать фамилии...

Отобрать тех учеников, чей рост не менее 170 см
Объявлен набор в шк.команду. Известен рост каждого из N учеников,желающих попасть в эту команду....

4.47 Известен рост трех человек. Определить, одинаков ли их рост.
Известен рост трех человек. Определить, одинаков ли их рост.

Сколько из учеников имеет рост больше 170 см
Известен рост 30 учеников школы. сколько из них имеет рост больше 170см? может ли сформироватса...

Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см
В таблице хранятся следующие данные об учениках: фамилия, имя , отчество, рост, масса. Вычислит...

1
riv94
64 / 64 / 29
Регистрация: 13.02.2011
Сообщений: 392
01.04.2012, 20:42 2
Лучший ответ Сообщение было отмечено Shuler02 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program dddd;
var 
m:array[1..30] of integer;
i,k:integer;
begin
for i:=1 to 30 do read(m[i]);
k:=0;
for i:=1 to 30 do
 if m[i]>170 then k:=k+1;
writeln(k);
if k>=5 then writeln('YES') else writeln('NO');
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.04.2012, 20:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Записи. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см
В таблице хранятся следующие данные об учениках: фамилия, имя , отчество, рост, масса. Вычислит...

Известен рост трех человек. Определите, одинаков ли их рост
Известен рост трех человек. Определите , одинаков ли их рост

Дан список и рост учеников класса. Определить рост самого высокого.
Дан список и рост учеников класса. определить по мере рост самого высокого.


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

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

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