для конкурсного отбора манекенщиц приглашаются девушки не ниже 180 см. определить будет ли допущена таня к участию в конкурсе
10-11 класс
|
program test;
var r:real;
begin
write('Введите рост манекенщицы: ');
readln(r);
if r>180 then writeln('Манекенщицa допущена к участию в конкурсе')
else
Другие вопросы из категории
1) информатики
2) теории систем
3) автоматики
4) средств создания программного обеспечения
5) является самостоятельной наукой
составить программу, которая запрашивает 2 числа если они оба четные, то сумма. Если они разные то найти произведения
идентификации всех датчиков данной системы?
Читайте также
Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного
класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на
русском языке или на одном из языков программирования алгоритм, который подсчитывает
и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что
хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены
так, как показано ниже. Использовать другие переменные запрещается.
Приём на работу идёт на конкурсной основе. Условия приёма требуют 20 лет рабочего стража и возраста не более 42 лет. Определите, будет ли человек принят
на работу.
берут тех, чей рост не менее 180 см.Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.
Код Pascal
cоnst N = 30;
var A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
for i:=1 to N do readln(A);
...
end.
данным требованиям написать программу pascal
берут тех, чей рост не менее 180 см. Напишите программу, которая подсчитывает число претендентов в состав баскетбольной команды и выводит номера подходящих кандидатур.