84 : 3 = 28
28 -1 = 27
27 : 3= 9
9 : 3 = 3
3-1=2
Ответ: 21121
Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
Количество символов на мощность алфавита(или как там его в школе обзывают)
проще говоря слово -привет- состоит из 6 символов(если не считать те минусы что я поставил) в кодировке юникод он будет занимать 12 байт ибо в юникоде 1 символ весит два байта
Beginvar b:boolean; s:real;a:=0;writeln('slovo');readln(z);while not (eof(z)) do beginif z=d then a:=a+1;writeln(a);end;end.
Ну мне кажется иут ответ 2