На языке паскаль1)заполните массив а первыми n натуральными числами,начиная с x(ввести x с клавиатуры) в обратном порядке( начиная с конца массива)2)заполнить массив a первыми n числами фибоначчи.первые два числа фибонначи равны еденице, а каждое последующее число фибонначи вычисляется как сумма двух предыдущих , надо!

102

437

Посмотреть ответы 1

Ответы на вопрос:

arsenagadzhanin

Информатика

4,7(36 оценок)

// pascalabc.net 3.0, сборка 1052 const rus=['а'..'я']; var s: string; i,k,t: integer; c,c1,tc,sc: char; f: array['а'..'а'] of byte; // 'а' - это для 'ё' ch: array['а'..'а'] of char; begin write('введите строку: '); readln(s); for c: ='а' to 'а' do begin f[c]: =0; ch[c]: =c end; k: =0; for i: =1 to length(s) do begin c: =upcase(s[i]); if c in rus then begin inc(f[c]); inc(k) end else if c='ё' then begin inc(f['а']); inc(k) end; end; writeln('количество букв равно ',k); { сортировка массива со счетчиком количества букв } for c1: ='а' to pred('а') do for c: ='а' to pred('а') do if f[c]< f[succ(c)] then begin t: =f[c]; tc: =ch[c]; sc: =succ(c); f[c]: =f[sc]; ch[c]: =ch[sc]; f[sc]: =t; ch[sc]: =tc end; writeln('частота встретившихся букв'); c: ='а'; while (c< ='а') and (f[c]> 0) do begin if ch[c]='а' then ch[c]: ='ё'; writeln(ch[c],' - ',f[c]); inc(c) end; end. тестовое решение: введите строку: когда я был парнишкой, носил я брюки клёш количество букв равно 33 частота встретившихся букв к - 4 и - 3 л - 3 о - 3 а - 2 б - 2 н - 2 р - 2 ш - 2 я - 2 г - 1 д - 1 й - 1 п - 1 с - 1 ы - 1 ю - 1 ё - 1