Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 12.12.2014
Сообщений: 15
1

Записи. Определить сколько учеников могут заниматься в баскетбольной секции (рост > 170)

12.12.2014, 20:54. Просмотров 1217. Ответов 3
Метки нет (Все метки)

Определить сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170см.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2014, 20:54
Ответы с готовыми решениями:

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

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

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

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

3
25 / 25 / 42
Регистрация: 25.03.2014
Сообщений: 233
13.12.2014, 11:28 2
Pascal
1
2
if height > 170 then
  writeln('Баскетболист');
0
32 / 32 / 45
Регистрация: 01.11.2014
Сообщений: 155
Записей в блоге: 4
14.12.2014, 11:15 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
const
ideal=170;
var
rost:array[1..99999] of real;
k,n,i:integer;
Begin
k:=0;
write('Введите кол-во учеников: ');
 readln(n);
for i:=1 to n do
 Begin
  write('Рост ученика №',i,'равен: ');
   readln(rost[i]);
 end;
for i:=1 to n do
 if rost[i]>=ideal then K:=k+1;
write('Кол-во учеников, которые подходят по росту для игры в баскетбол: ', k);
end.
0
0 / 0 / 0
Регистрация: 12.12.2014
Сообщений: 15
23.12.2014, 20:11  [ТС] 4
спасибо большое))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2014, 20:11

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

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

Определить число студентов, которые могут заниматься в баскетбольной секции
Организовать ввод, хранение в массиве, вывод на экран данных о сту¬дентах: фамилия, имя, отчество,...

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

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


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

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

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