|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.09.2009, 20:46 | #1 |
Регистрация: 10.09.2009
Сообщений: 4
|
Определить кол-во человек. Помогите
В помещении N человек. Определить кол-во человек, возраст которых не превышает 20 лет. Задачу нужно решить тремя типами я точно не помню какими, что то типа While For и Repeat. Помогите пжл.
|
15.09.2009, 21:09 | #2 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
1.kol:=0; for i:=1 to n do if a[i]<=20 then inc(kol);
2.kol:=0; i:=1; while i<=n do begin if a[i]<=20 then inc(kol); inc(i); end; 2.kol:=0; i:=1; repeat if a[i]<=20 then inc(kol); inc(i); until i>n; Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
макрос - подсчитать для каждой строки кол-во ячеек с «+», кол-во ячеек с «-» | Vadim_abs | Microsoft Office Excel | 36 | 14.07.2009 12:08 |
Найти кол-во целых чисел в первой последовательности и кол-во нечетных во второй. | DjDeniels-61 | Помощь студентам | 7 | 28.06.2009 13:04 |
Помогите найти строку с наибольшим кол-вом отриц. эл-ов | Danil21 | Общие вопросы C/C++ | 1 | 21.06.2009 11:54 |
Помогите определить макс кол цветов картинки 32x32 пикс объёмом 512 байт | www_2008 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 13.05.2008 20:25 |