Вопрос по информатике:
Файл A заполнен случайными числами.Сформировать файл B из элементов файла A кратным m, и файл C из элементов файла A кратных h. m и h - вводятся с клавиатуры
Пожаловаться
- 18.04.2015 03:37
- Информатика
- remove_red_eye 13991
- thumb_up 39
Ответы и объяснения 1
Var m,h:integer;
f1,f2,f3:text;
begin
write('m: ');
readln(m);
write('h: ');
readln(h);
assign(f1,'A.txt');
rewrite(f1);
var a:=ArrRandom(10,1,56);
writeln(f1,a);
close(f1);
assign(f2,'B.txt');
rewrite(f2);
var b:=a.Where(x -> x mod m = 0);
writeln(f2,b);
close(f2) ;
assign(f3,'C.txt');
rewrite(f3);
var c:=a.Where(x -> x mod h = 0);
writeln(f3,c);
close(f3) ;
end.
Пример
m: 5
h: 4
A - [35,51,39,41,16,36,28,20,39,23]
B - [35,20]
C - [16,36,28,20]
f1,f2,f3:text;
begin
write('m: ');
readln(m);
write('h: ');
readln(h);
assign(f1,'A.txt');
rewrite(f1);
var a:=ArrRandom(10,1,56);
writeln(f1,a);
close(f1);
assign(f2,'B.txt');
rewrite(f2);
var b:=a.Where(x -> x mod m = 0);
writeln(f2,b);
close(f2) ;
assign(f3,'C.txt');
rewrite(f3);
var c:=a.Where(x -> x mod h = 0);
writeln(f3,c);
close(f3) ;
end.
Пример
m: 5
h: 4
A - [35,51,39,41,16,36,28,20,39,23]
B - [35,20]
C - [16,36,28,20]
Пожаловаться
- 19.04.2015 16:56
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы