ДРУГ | длина = 4 | четная
ДРУГЯ --> ДСУДЯ | Длина = 5 | нечет.
АДРУГЯ --> АЕРФГА
Ответ: АЕРФГА
Var n:integer;
begin readln(n);
if n mod 10 = 0 then write(2) else write(1);
<span>end.</span>
При помощи length()
Например так:
ar
s: string;
len: byte;
begin
write('Input string: ');
readln(s);
len := length(s);
writeln('Its lenght is ', len,' characters.');
readln
end.
Здесь s - сама строка, а длина будет выведена в переменной len
110 Кбайт = 110*1024 байт
16 бит = 2 байта
Количество страниц = 110*1024 / (40*64*2) = 22
Все перечисленные выше термины относятся к свойствам информации