Предмет: Информатика,
автор: Molly11
Дан одномерный массив целых чисел, заполненный
случайным образом числами из промежутка [-40, 30]. Массив данных хранится в
файле. Удалить из него все элементы, которые состоят из одинаковых цифр.
Результат записать в другой файл.
Ответы
Автор ответа:
0
var
m:array [1..100] of integer;
t:text;
begin
assign(t,'input.txt');
reset;
for i:= to 100 do
readln(m[i]);
close(t);
assign(t,'output.txt');
rewrite(t);
for i:=1 to 100 do
if (m[i]div10<>m[i] mod 10)
then writeln(m[i]);
close (t);
end;
m:array [1..100] of integer;
t:text;
begin
assign(t,'input.txt');
reset;
for i:= to 100 do
readln(m[i]);
close(t);
assign(t,'output.txt');
rewrite(t);
for i:=1 to 100 do
if (m[i]div10<>m[i] mod 10)
then writeln(m[i]);
close (t);
end;
Похожие вопросы
Предмет: Информатика,
автор: samuilzamgaran
Предмет: Математика,
автор: se725
Предмет: Қазақ тiлi,
автор: sasakalmakova
Предмет: Математика,
автор: KaLcY
Предмет: Математика,
автор: dikaya00