Вфайле записано не более 100 чисел. отсортировать их по возрастанию последней цифры и записать в другой файл. pascal.

Вpascalabc.net эта решается легко и быстро. в других версиях будет монстрик. // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! procedure makefile(path: string); // не относится к , создает файл text со 100 числами begin   writelines(path,seqrandom(100,-99,99).select(x-> x.tostring)) end; begin   makefile('myfile1.txt');   // теперь у нас есть текстовый файл из 100 случайных чисел   // собственно, решение   var n: =readinteger('укажите количество чисел: ');   var a: =readlines('myfile1.txt').take(n).toarray;   writeln('исходная последовательность'); a.println;   writeln('результирующая последовательность');   a: =a.orderby(x-> x.last).toarray; a.println;   writealllines('myfile2.txt',a); end. пример укажите количество чисел: 15 исходная последовательность 51 -9 17 -12 7 -15 -20 50 98 19 56 67 -57 -42 64 результирующая последовательность -20 50 51 -12 -42 64 -15 56 17 7 67 -57 98 -9 19

это у нас прогрессия b1=1

q=1/2

bn=0,001> b1*q^(n-1)

0,001> q^(n-1)

0,001> 0,5^(n-1)

0,0005> 0,5^n

n=11

s11=b1*(1-q^n)/(1-q)=b1*(1-0,5^11)/0,5=1(0,999511718)/0,5=1,999023438

почти равно двум

 

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.