Пожаловаться
- 23.01.2015 03:41
- Информатика
- remove_red_eye 7246
- thumb_up 41
Ответы и объяснения 1
Var
K:integer;
begin
write('Введите возраст: '); readln(k);
if ((k>0) and (k<7)) then writeln('Дошкольник');
if ((k>=7) and (k<17)) then writeln('Школьник');
if ((k>17) and (k<65)) then writeln('Работающий человек');
if (k>65)then writeln('Пенсионер');
readln
end.
Пожаловаться
- 24.01.2015 12:42
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы