Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Функции. Найти общее количество заданной буквы в трех заданных предложениях https://www.cyberforum.ru/turbo-pascal/thread536078.html
Составить программу для нахождения общего количества заданной буквы в трех заданных предложениях.(Определить функцию для расчета количества некоторой буквы в предложении)
Turbo Pascal Дано предложение. Заменить в нем все вхождения буквосочетания про на нет
Дано Предложение. Заменить в нем все вхождения буквосочетания про на нет!
Turbo Pascal Получить новый массив, содержащий исходные массивы, упорядоченные по возрастанию
всем привет! дано: два одномерных, одинаковых по длине массива, отсортировать их по возрастанию, получить новый массив содержащий в себе эти два массива с упорядоченными числами по возрастанию. ...
Turbo Pascal Дано предложение, в котором нет символа "-" Дано предложение, в котором нет символа "-". Определить количество букв о в первом слове. Учесть, что в начале предложения могут быть пробелы https://www.cyberforum.ru/turbo-pascal/thread536065.html
Turbo Pascal Дано предположение. Определить количество букв н, предшествующих первой запятой https://www.cyberforum.ru/turbo-pascal/thread536058.html
Дано предположение. Определить количество букв н, предшествующих первой запятой предложения. Известно, что запятые в предложении есть. Помогите кто чем может
Turbo Pascal Дана фраза целая вещь.Исправить ошибку в ней.
Дана фраза целая вещь.Исправить ошибку в ней. 9.65(б)определить: число вхождений в него некоторого буквосочетания из двух букв; 11.57. Известны данные о количестве осадков, выпавших за каждый день...
Turbo Pascal Даны квадратные матрицы A и B порядка n. Получить матрицу A(B-E)+C
даны квадратные матрицы A и B порядка n получить матрицу A(B-E)+C где E-единичная матрица порядка n, a элементы матрицы C вычисляются по формуле C_ij=1/(i+j), ij=1,2...n
Turbo Pascal Программа для определения сколько цифр в тексте Дана программа для определения сколько цифр в тексте: Program Pr1; Var ch:Char; k:Integer; Begin Read(ch);k:=0; While ch<>#13 Do Begin If (ch>='0') And (ch<='9') Then... https://www.cyberforum.ru/turbo-pascal/thread535971.html
Turbo Pascal Задача со троками с использованием процедур и функций (через параметры) https://www.cyberforum.ru/turbo-pascal/thread535968.html
Из строки удалить среднюю букву, если длина строки нечетная, иначе - удалить две средние буквы. Выведите полученную строку на экран. Использовать подпрограммы для каждой части програмы. очень нужно,...
Turbo Pascal Опишите тип объектов – прямоугольник с параметрами: координаты вершин, стороны, цвет Опишите тип объектов – прямоугольник с параметрами: координаты вершин, стороны, цвет. Пусть методами будут А) порождение прямоугольник; Б) изменение его цвета; В) изменение его размера. Опишите... https://www.cyberforum.ru/turbo-pascal/thread535958.html
riv94
64 / 64 / 29
Регистрация: 13.02.2011
Сообщений: 392
01.04.2012, 20:42 0

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

01.04.2012, 20:42. Просмотров 3783. Ответов 1
Метки (Все метки)

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


Вернуться к обсуждению:
Известен рост 30 учеников школы, сколько из них имеет рост больше 170 см
1
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.04.2012, 20:42
Готовые ответы и решения:

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

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

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

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

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