Информатика: 4 номера по информатике, https://prnt.sc/11plc3w - задания

vaflya2007

02.02.2023 19:01

Информатика

Есть ответ 👍

4 номера по информатике,
https://prnt.sc/11plc3w - задания

230

269

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

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

KiskaDasha

Информатика

4,4(69 оценок)

Var s: string; a: array['a'..'z'] of integer; i: integer; c: char; begin writeln('введите строку: '); readln(s); for c: ='a' to 'z' do a[c]: =0; for i: =1 to length(s) do if (s[i]> ='a')and(s[i]< ='z') then a[s[i]]: =a[s[i]]+1; for c: ='a' to 'z' do if a[c]> 0 then writeln(c,' ',a[c]); end. программа: введите строку: fhb5kbfыshfm. b 2 f 3 h 2 k 1 m 1 s 1