Program z1;
var a: string; b, c, i: integer;
begin
readln (a); writeln ();
c:= 0;
b:= lenght (a);
for<span> i</span>:=1 to<span> b </span>do
if (a[i]<span> ></span>= 'a') and (a[i]<span> <</span>= 'z') then begin
<span>write (a[i]); c </span>:=<span> c </span>+ <span>1; end;
</span>writeln (c);
end.
Надеюсь, этот вариант сработает.
#include<iostream>
using namespace std;
int main()
{
int n, P = 0, O = 0, N = 0, A;
cout << "n = ", cin >> n;
for(int i = 0; i < n; i++)
{
cin >> A;
if(A > 0) P++;
else if(A < 0) O++;
else N++;
}
cout <<"Chisla > 0: " << P;
cout <<"\nChisla < 0: " << O;
cout <<"\nChisla = 0: " << N;
return 0;
}
Пример работы программы:
n = 9
1 2 3 -4 -5 -6 -7 0 0
Chisla > 0: 3
Chisla < 0: 4
Chisla = 0: 2
Var
a:integer;
begin
write('Введите номер месяца: ');
readln(a);
case a of
1: writeln('Январь.31 день');
2: writeln('Февраль.29 дней');
3: writeln('Март.31 день');
4: writeln('Апрель.30 дней');
5: writeln('Май.31 день');
6: writeln('Июнь.30 дней');
7: writeln('Июль.31 день');
8: writeln('Август.31 день');
9: writeln('Сентябрь.30 дней');
10: writeln('Октябрь.31 день');
11: writeln('Ноябрь.30 дней');
12: writeln('Декабрь.31 день');
end;
end.
2.
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
case a of
1: write(a, ' Копейка');
2..4: write(a, ' Копейки');
5..20: write(a, ' Копеек');
end;
end.
Раньше, во времена DOS и даже еще раньше, одному символу соответствовал один байт:
Посчитаем символы
1 З
2 д
3 р
4 а
5 в
6 с
7 т
8 в
9 у
10 й
11,
12 пробельный символ
13 П
14 е
15 т
16 я
17 !
Итого 17 байт информации.
В настоящее время похожая однобайтова кодировка все еще применяется и называется ASCII.
Но более распространен utf-8. В нем русские символы занимают по два байта.
Итого в сообщении 14 русских сиволов (28 байт) + 2 знака препинания(2 байта) + пробел (один байт) итого 31 байт.
Существует и двухбайтовый unicode там каждому символу ставятся в соответсвие 2 байта: итого 34 байта.
И даже 4 байтовый юникод:
68 байт.
В Вашей задаче ответ скорее всего 17 байт (первый вариант)
