сервис вопросов и ответовЗапишите на языке Паскаль программу для решения задачи.
5-9 класс|
|
"Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть команду, если рост игрока команды должен быть не менее 170 см". Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см,а число претендентов n=5. Заранее спасибо:)
Annuska777
08 февр. 2017 г., 23:17:00 (7 лет назад)
87164525630a
09 февр. 2017 г., 1:12:21 (7 лет назад)
Const
N=5;
Var
Rost:array[0..N] of real;
Team,i:integer;
st:string;
begin
Team:=0;
for i:=1 to N do
begin
st:='не может быть ';
Rost[i]:=150+random(51);
if (Rost[i]>=170) then
begin
Team:=Team+1;
st:='';
end;
writeln('Претендент ',i,' (рост: ',Rost[i],') ',st,'зачислен в команду' );
end;
writeln('Всего в команду зачислено: ',Team);
end.
Мария0702
09 февр. 2017 г., 3:36:31 (7 лет назад)
я пишу именно на АВС
Pervin2003
09 февр. 2017 г., 5:22:41 (7 лет назад)
Комментарий удален
Gis2304
09 февр. 2017 г., 7:54:34 (7 лет назад)
ок, возможно ты прав - у меня не самая новая версия. Приношу свои извинения. Вопрос насчёт random снимается.
Vladazhivilova
09 февр. 2017 г., 9:51:38 (7 лет назад)
Второй вопрос остаётсся в силе - насчёт тех, у кого рост ровно 170
Ответить
Другие вопросы из категории
Читайте также
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округ
ляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км\ч, выведите YES, иначе выведите NO.
Программа получает на вход число проехавших автомобилей N (1=<N=<30), затем указывает их скорости. Значение скорости не может быть меньше 1 и больше 300.
Программа должна сначала вывести максимальную скорость, затем YES или NO.
Написать на языке Паскаль
Пример работы программы: (смотри во вложениях)
Помогите, пожалуйста, очень нужно! Срочно!:( 1) Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
Плиз срочно надо.1)Найдите правильную на языке паскаль запись выражения
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
Помогите пожалуйста :) Запишите на языке Паскаль программу, которая запрашивает ввод целого двузначного числа, меняет местами его
цифры и выводит новое число на экран.
Домашнее задание:
1. Запишите на языке Паскаль программу, которая для произвольного двузначного числа определяет
сумму и произведение его цифр.
Вы находитесь на странице вопроса "Запишите на языке Паскаль программу для решения задачи.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.