Вопрос по информатике:
Паскаль
Входной файл содержит данные о пользователях социальных сетей в виде:
Иванов Иван М 42
Петрова Анна Ж 26
Вывести в выходной файл фамилии и имена всех мужчин младше 30 лет.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.03.2015 00:28
- Информатика
- remove_red_eye 4315
- thumb_up 11
Ответы и объяснения 1
fin,fout: text;
st: string;
begin
assign(fin,'data.in');
reset(fin);
assign(fout,'data.out');
rewrite(fout);
while not eof(fin) do
begin
readln(fin,st);
vz:=StrToInt(Copy(st,length(st)-1,2));
if (vz<30) and (st[length(st)-3]='М') then
writeln(fout,Copy(st,1,length(st)-5));
end;
close(fin);
close(fout);
end.
{ data.in
Иванов Иван М 26
Перова Марья Ж 21
Петров Василий М 32
Сидоров Андрей М 18
data.out
Иванов Иван
Сидоров Андрей
}
- 08.03.2015 20:17
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.