Var a,b:integer;
begin
readln(a,b);
writeln(a,b);
end.
1.Логические данные (булевский тип)
2.Символьные данные
2.1.текст
3.Арифметические данные
3.1. Данные с фиксированной точкой
3.1.1 целые числа
3.2. Данные с плавающей точкой
3.2.1. одинарная точность
3.2.2. двойная точность
1) Вычисляет сумму цифр любого 4-значного числа
2) 0 2 4 9 12 15
N = 2^i
N - количество символов алфавита
i - информационный вес одного символа
N1 = 16 символа
N2 = 32 символа
16 = 2^i1
i1 = 4 бита вес 1 символа в племени Мульти
32 = 2^i2
i2 = 5 бита вес 1 символа племени Пульти
Количество символов было в сообщении одинаково, поэтому можно сравнить по весу одного символа:
5 / 4 = 1,25 раза больше информационный вес племени Пульти.
Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
<span>end.</span>