begin
ReadlnString.Count(c -> c = 'а').Println
end.
Пример приведен на скрине.
Program Maximum; var A: array [1..20] of integer; i,sum: integer; sr:real; Begin A[1]:=56; A[2]:=78; A[3]:=48; A[4]:=90; A[5]:=45; A[6]:=54; A[7]:=63; A[8]:=52; A[9]:=43; A[10]:=54; A[11]:=64; A[12]:=59; A[13]:=54; A[14]:=53; A[15]:=52; A[16]:=58; A[17]:=71; A[18]:=58; A[19]:=59; A[20]:=70; for i:=1 to 20 do begin sum+=A[i]; end; sr:=sum/20; write(sr); end.
1. нарисовать оси абсцисс и ординат и подписать где ось x а где ось y
2. обозначить единичный отрезок
3. обозначить точки которые надо найти
1Мб = 1024Кб
Т.к. 1 стр. = 4 Кб, то в 1Мб - 256 страниц.
<span>Прикладная программа для выполнения на компьютере конкретных задач-это <span>Приложение</span></span>