READLN (N);
UNTIL N>0; К:= 0; FOR I:= 1 TO N DO BEGIN WRITELN('BBEДИTE ПОЛ'); READLN (POL); IF POL = 'MAN' THEN К:= K+1 ELSE BREAK END; IF К = 0 THEN WRITELN('MУЖЧИH В НАЧАЛЕ ОЧЕРЕДИ НЕТ') ELSE WRITELN('B НАЧАЛЕ ОЧЕРЕДИ СТОИТ ', К, 'МУЖЧИН') END. Для решения задачи: - формируем тело программы и описываем переменные; - вводим длину последовательности, задаем начальное значение счетчика К; - в цикле вводим пол человека; - если это мужчина, то увеличиваем значение счетчика на единицу; - в противном случае прерываем цикл оператором BREAK; - в зависимости от К выводим результат. Переменные: К - счетчик; I - переменная цикла; N - количество человек в очереди; POL - пол человека. Практические задания 1. Вводится последовательность ненулевых чисел; 0 - конец последовательности. Посчитать, сколько в ней отрицательных чисел, и сумму положительных чисел. 2. Дана последовательность из N чисел. Определить, является ли она неубывающей. 3. Дана последовательность из N чисел. Определить, сохраняет ли она знак. 4. Вводится последовательность ненулевых чисел; 0 - конец последовательности. Определить, сколько в ней пар соседних равных элементов. 5. Дана последовательность из N чисел. Определить сумму трех наибольших чисел. ТЕМА 4
|
