Ответ: 22
Объяснение: Умножаем кол-во раз сколько встречается буква в слове на количество символов сколько оно имеет (нули тоже считают)
Я решала сама и нигде не нашла ответа, если кто-нибудь сверится со мной было бы круто
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.
Имеет расширение zip файла
Программа:
var i: integer;
begin
for i:=10 to 99 do
if abs(i div 10 - i mod 10) = 3 then write(i,' ');
end.
Результат:
14 25 30 36 41 47 52 58 63 69 74 85 96
Он оказался в этом же каталоге - Энциклопедия