1, если цифровая.
()()()()()()()()()()()()()(
Ирга шла с 3 по 14 декабря. Ну вдруг если она работает то напиши :: час кода.рф
Var s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='е' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end.
Для хранения текста объёмом 5120 символов при 8 битном кодировании потребуется 5 килобайт
Var
i,n,m:integer;
k,s:longint;
begin
Write('Задайте количество чисел: '); Read(n);
s:=0; m:=0;
Writeln('Вводите числа...');
for i:=1 to n do
begin
Read(k);
if (k mod 2)=0 then begin s:=s+k*k; Inc(m) end
end;
Writeln('Среднее квадратов четных чисел: ',s/m:0:4)
end.
<em><u>Тестовое решение:</u></em>
Задайте количество чисел: 7
Вводите числа...
36
-18
15
8
14
6
9
Среднее квадратов четных чисел: 383.2000