Program n1;
var a: byte;
begin
readln(a);
if a=0 then write('ноль');
if a=1 then write('один');
if a=2 then write('два');
if a=3 then write('три');
if a=4 then write('четыре');
if a=5 then write('пять');
end.
Program z1;
var n:integer;
i:integer;
r:integer;
begin
writeln('Введите количество желающих');
readln(n);
i:=0;
r:=0;
while(n>0) do
begin
writeln('Введите рост ученика : ');
readln(r);
if(r>170) then i:=i+1;
n:=n-1;
end;
writeln(i);
end.
== проверяет одинаково ли значение операндов, если одинаковы – то условие является истинной (true);
!= проверяет одинаково ли значение операндов, если НЕ одинаковы – то условие является истинной (true);
<> проверяет одинаково ли значение операндов, если НЕ одинаковы – то условие является истинной (true);
> проверяет значение левого оператора, если он больше, чем правый – то условие является истинной;
< проверяет значение левого оператора, если он меньше, чем правый – то условие является истинной;
>= проверяет значение левого оператора, если он больше или равен правому – то условие является истинной;
<= проверяет значение левого оператора, если он меньше или равен правому – то условие является истинной;
Пишу частями, пробелы восполни сам
type<span> massiv = array [1..1000] of integer<span>;
</span></span>var<span>
i,n,summa : integer;</span><span>
srednee : real;</span><span> <span>A : massiv;
</span></span><span>write('Введите кол-во элементов : ');
readln(n);</span> <span>summa := 0; <span>// начальное значение
</span></span><span>for i:=1 to n do</span><span> begin</span><span> write('Введите ',i, ' элемент: '); readln(A[i]);</span><span> summa := summa + A[i];</span><span> end<span>;</span></span>
1. Мощность здесь - это количество символов - 16.
2. Р = 01
А = 100
Д = 00
А = 100
Р = 01
ДАР
3.
C D
CCC DDD
CCD DDC
CDC DCD
DCC CDD
5. N(мощность алфав.)=4 т.к. в этих словах использованы всего 4 буквы
6. 33-я; 2-б; 13-л; 16-о; 15-н; 33-я
Яблоня
