PROGRAM PRG3_11;

VAR PORODA: STRING;

I, К, N: INTEGER;

AGE, L: REAL;

BEGIN

REPEAT

WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');

READLN (N);

UNTIL N>0;

К:= 0;

FOR I:= 1 TO N DO

BEGIN

WRITELN('BBEДИTE ПОРОДУ, ВОЗРАСТ, ВЫСОТУ ХОЛКИ ');

READLN (PORODA);

READLN (AGE, L);

IF (PORODA = 'БОКСЕР') AND (AGE<= 3) AND (AGE> = 2) AND (L> = 55)

THEN К:= K+1;

END;

IF К = 0 THEN WRITELN('TAKИX СОБАК НЕТ')

ELSE

WRITELN('БOKCEPOB 2-3 ЛЕТ С ВЫСОТОЙ ХОЛКИ НЕ НИЖЕ 55 СМ', К, ' ШТУК')

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим длину последовательности, задаем начальное значе­ние счетчика К;

- в цикле вводим породу собаки, возраст и высоту холки;

- если собака удовлетворяет всем требованиям, то увеличива­ем значение счетчика на единицу;

- в зависимости от К выводим результат.

Переменные:

К - счетчик;

I - переменная цикла;

N - количество собак;

AGE - возраст собаки;

L - высота холки;

PORODA - порода.

ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = 3

ВВЕДИТЕ ПОРОДУ, ВОЗРАСТ, ВЫСОТУ ХОЛКИ

БОКСЕР

ВВЕДИТЕ ПОРОДУ, ВОЗРАСТ, ВЫСОТУ ХОЛКИ

КОЛЛИ

ВВЕДИТЕ ПОРОДУ, ВОЗРАСТ, ВЫСОТУ ХОЛКИ

БОКСЕР

БОКСЕРОВ 2-3 ЛЕТ С ВЫСОТОЙ ХОЛКИ НЕ НИЖЕ 55 СМ 1 ШТУК

 

Рис. 3.8. Результат работы PRG3_11

Задача 3.12 В очереди за билетами стоят мужчины и женщи­ны. Какое количество мужчин стоит в начале оче­реди до первой женщины.

PROGRAM PRG3_12;

VAR POL: STRING;

I, К, N: INTEGER;

BEGIN

REPEAT

WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');