Вопрос по информатике:
Дан файл из чисел.
Создать второй файл из чисел первого файла, у которых сумма цифр находится в пределе от 12 до 34.
Pascal
- 27.12.2017 01:36
- Информатика
- remove_red_eye 2353
- thumb_up 13
Ответы и объяснения 1
Var
f1,f2:file of integer; k,m,s:integer;
begin
assign(f1,'f1.dat'); reset(f1);
assign(f2,'f2.dat'); rewrite(f2);
while not eof(f1) do
begin
read(f1,k);
s:=0;m:=k;
while m>0 do begin s:=s+m mod 10; m:=m div 10; end;
if (s>12)and(s<34) then write(f2,k);
close(f1); close(f2);
end.
- 28.12.2017 01:56
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.